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A  METHODOLOGY  FOR  SIMULATING  MISSION  DEFERMENT  IN  THE  TACTICAL 
VEHICLE  EVALUATION  MODEL  (TVEM) 

(Addendum  to  AMSAA  Technical  Report  No.  311) 


1.  INTRODUCTION 

The  Tactical  Vehicle  Evaluation  Model  (TVEM)  is  a  computer  simu¬ 
lation  designed  to  compare  various  tactical  vehicle  fleet  mixes  in  an 
operational  context  by  combining  vehicle  performance  factors  with  scenario- 
related  requirements  information.  The  vehicle  fleet  is  organized  into 
pools;  each  pool  consists  of  a  specified  number  of  vehicles,  with  similar 
weight  and  cubic  capacities,  operating  from  a  given  location.  To  each 
pool  is  assigned  a  schedule  of  supply  missions  to  be  performed.  For  each 
mission,  the  schedule  specifies  the  amount  of  cargo  to  be  hauled,  the  day 
and  time  that  the  mission  is  to  occur,  and  the  route  on  which  the  vehicles 
must  travel.  Given  the  amount  of  mission  cargo,  the  vehicle  hauling  capac¬ 
ity,  and  the  travel  and  cargo  handling  times  for  the  route,  the  TVEM  deter¬ 
mines  the  number  of  vehicles  required  for  the  mission  as  well  as  its  dura¬ 
tion.  The  results  of  the  simulation  for  each  pool  consist  of  the  number 
of  missions  completed,  the  number  of  assigned  vehicles  used,  the  percent¬ 
age  of  unused  vehicle  capacity,  and  other  measures  of  efficiency. 

AMSAA  Technical  Report  No.  311 1  documents  the  TVEM  and  the  reader 
is  referred  to  that  report  for  a  thorough  discussion  of  the  model  logic  and 
input  development  as  well  as  instructions  for  setting  up  the  input  data  for 
the  TVEM  computer  program.  In  the  discussion  of  the  model  logic,  TR-311 
points  out  that  the  model  has  several  limitations.  One  limitation  is  that 
missions  assigned  to  a  pool  cannot  be  deferred  or  postponed  in  anticipation 
of  slack  time.  That  is,  if  an  insufficient  number  of  vehicles  is  available 
to  undertake  a  mission  at  its  scheduled  time,  it  will  either  be  transferred 
to  a  support  pool  or  skipped,  i.e.  unfulfilled,  even  though  enough  vehicles 
might  be  available  perhaps  a  short  time  later. 

The  methodology  to  permit,  whenever  desirable,  the  deferral  of 
missions  has  been  incorporated  in  the  TVEM  and  it  is  the  purpose  of  this 
report  to  document  the  model  improvement. 

2.  DISCUSSION 

The  deferral  methodology  is  designed  to  give  the  TVEM  user  a  wide 
variety  of  options  in  the  exercising  of  this  form  of  mission  disposition. 

In  TR-311  it  is  pointed  out  that  one  of  the  necessary  input  items  for  each 
mission  is  a  value  that  denotes  whether  the  mission  may  be  transferred  to  a 
support. pool  or  if  it  must  be  skipped  in  the  event  that  it  cannot  be  under¬ 
taken  at  the  scheduled  time.  Another  input  item  that  must  now  be  provided 


1  Butler,  S.  and  Ferquson,  W. ,  Tactical  Vehicle  Evaluation  Model  (TVEM), 
AMSAA  TR-311,  October  1980.  UNCLASSIFIED  REPORT. 
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for  each  mission  denotes  whether  it  is  permissible  to  defer  the  mission  for 
a  time  if  it  cannot  be  fulfilled  or  if,  instead,  it  must  be  transferred  im¬ 
mediately  or  skipped.  In  the  TVEM  main  program  are  two  delay  times,  "TRTM" 
and  "DFTM,"  whose  values  are  given* in  a  FORTRAN  DATA  Statement.  The  delay 
times  are  in  minutes  and  must  satisfy  the  relationship  that  the  value 
assigned  to  "TRTM"  cannot  be  greater  than  that  assigned  to  "DFTM."  The 
two  delay  times  govern  the  deferral  of  missions,  for  which  deferral  is 
permissible,  as  follows.  Amission  which  may  not  be  transferred  to  a  sup¬ 
port  pool  will  be  held  for  as  long  as  "DFTM"  minutes.  If  vehicles  cannot 
start  the  mission  before  "DFTM"  minutes  elapse,  the  mission  will  be  skipped 
and,  hence,  unfulfilled.  Transferable  missions,  on  the  other  hand,  are 
modeled  in  a  more  complicated  manner.  A  TVEM  control  parameter,  called 
"ITRNS,"  interacts  with  "TRTM"  and  "DFTM"  to  control  the  handling  of  each 
mission  in  this  category.  Depending  upon  the  user  assigned  value  of  "ITRNS," 
all  such  missions  will  be  treated  in  one  of  three  ways: 

(a)  the  missions  will  be  transferred  without  delay, 

(b)  the  missions  will  be  deferred  for  at  most  "TRTM"  minutes,  or 

(c)  the  missions  will  be  deferred  for  at  most  "DFTM"  minutes. 

In  the  latter  two  cases  any  mission  that  cannot  be  undertaken  within  the 
applicable  delay  time  will  be  transferred  at  the  end  of  that  delay  time. 

One  exception  to  the  execution  of  mission  deferrals  occurs  when 
the  tonnage  or  cube  specified  in  the  mission  input  information  is  such  that 
more  vehicles  are  required  than  are  assigned  to  the  pool  and  the  mission 
cannot  be  split.  In  this  case  the  TVEM  makes  no  attempt  to  defer  the 
mission  even  though  it  may  have  been  denoted  by  the  user  to  be  permissible 
to  do  so  in  the  mission  input  information.  The  user  need  not  check  the 
mission  input  information  for  the  potential  occurrence  of  these  illogical 
deferral  attempts  because  a  check  built  into  the  coding  of  the  deferral 
routines  automatically  aborts  such  attempts  and  ensures  that  the  disposition 
of  the  missions  is  properly  controlled. 

The  values  assigned  to  the  delay  times  and  to  the  control  parameter 
are  easily  changed.  For  a  consolidated  list  of  all  TVEM  control  parameters 
and  option  variables,  see  Appendix  B. 

Figure  1  is  a  flowchart  of  the  main  simulation  portion  of  the 
improved  version  of  the  TVEM.  It  gives  an  overview  of  the  methodology  for 
deferring  missions  and  shows  how  it  fits  into  the  overall  model  logic. 

If  the  TVEM  determines  that  a  mission  cannot  be  undertaken  at  the 
scheduled  time,  the  routines  associated  with  deferring  a  mission  first 
determine  whether  it  is  permissible  to  defer  the  mission  and  whether  there 
are  enough  vehicles  assigned  to  the  pool  to  undertake  the  mission.  When  a 
pool  does  not  have  enough  vehicles  assigned  to  undertake  a  mission,  the 
mission  is  either  transferred  to  another  pool  or  skipped.  If  it  is  permis¬ 
sible  to  defer  the  mission  and  enough  vehicles  are  assigned  to  the  pool, 
the  model  searches  the  schedule  of  remaining  missions  for  a  period  of 
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slack  time  during  which  the  mission  can  be  completed.  If  the  model  deter¬ 
mines  that  a  suitable  slack  period  in  the  schedule  does  not  exist  either 
because  a  sufficient  number  of  vehicles  will  not  be  available  or  because 
the  slack  period  begins  after  the  permissible  delay  time,  the  attempt  to 
defer  the  mission  is  abandoned  and  the  mission  is  transferred  or  skipped. 
However,  if  the  model  determines  that  a  suitable  slack  period  does  exist, 
the  mission  is  considered  completed.  In  any  event,  after  the  proper  dispo¬ 
sition  of  the  mission  has  been  determined,  the  TVEM  considers  the  next 
scheduled  event  for  the  pool. 

Any  mission  that  cannot  be  deferred  when  necessary  or  one  that 
has  been  deferred  unsuccessfully  will  appear  among  those  missions  in  the 
Mission  Status  Report  that  were  transferred  or  skipped.  Information  on 
missions  that  have  been  successfully  deferred  is  given  under  a  separate 
disposition  category  in  the  Mission  Status  Report.  In  addition,  a  separate 
report  dedicated  exclusively  to  deferred  missions  is  printed  with  the 
simulation  results  for  each  pool.  Called  the  Deferred  Missions  Report,  it 
gives  the  number  of  such  missions  completed,  the  per-mission  average  number 
of  hours  delay,  the  per-mission  average  number  of  trucks  required,  etc. 

Refer  to  Appendix  C  for  a  more  detailed  discussion  of  the  mission 
deferment  methodology. 

3.  SUMMARY 

The  documentation  contained  in  this  report  enables  the  TVEM  user 
to  use  the  mission  deferment  feature  recently  added  to  the  model.  It  is 
believed  that  this  methodology  improvement  incorporates  sufficient  flexibil¬ 
ity  to  permit  the  user  to  conform  to  various  doctrinal  considerations  in 
the  deferment  of  missions.  Detailed  documentation  of  the  basic  TVEM  is 
found  in  the  referenced  report. 
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-S  TANB, STMFZ,T10.  IMPROVED  TACTICAL  VEHICLE  EVALUATION  MODEL 
-ACCOUNTS A***.  STAN  BUTLER  367/2173 

-DISPOSE(OUTPUT,ST-MFA,*PR)  . 

-COMMENT.  SET  LCM  TO  262,144  WORDS. 

-RFUL-1000) 

-BEGIN, ATTACH, PL OTLIB. 

PF646  -  PFMACRO  -  ATTACH  -  PLOTLIB  -  PLOTLIB 
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ENDIF, INMODE, 
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-REVERT. 
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PROGRAM  TVEM(  INPUT,  OUTPUT#  TAPE5- INPUT,  TAPE 6-01JTPUT,  TAPE  13)  MAIN 

DIMENSION  T(  100,9,25),  A(500,o,25),  E ( 1000, 2, 25 ) ,  P(15,25)  DEFER* 

DIMENSION  0(500,9),  F(500,2,25),  0(6,5,25),  Q(12,25),  G(25,5)  DEFER* 

DIMENSION  C ( 500, 25 ) ,  DT(6,25)  DEFER5 

INTEGER  P  MAIN 

C - * - DEFER* 

C  LCM  REQUIREMENT  --  252,000  OR  75*, 1*06  WORDS.  DEFER* 

LEVEL  2,  T,A,F,E,D,C  DEFER* 

COMMON  /  /  NPOf)LS,NY,  B5,B6,  NTP.CK  DEFER* 

COMMON  /  AAA  /  A  DEFER* 

COMMON  /  BBB  /  D, E, F, T  DEFFR* 

COMMON  /  CCC  /  C  DEFER* 

COMMON  /  DDD  /  ITP.NS, TP.TM,DFTM,NC E,  IB»NZE»DT  DEFER5 

COMMON  /  GGG  /  G  MAIN 

COMMON  /  000  /  0  DEFER3 

COMMON  /  PPP  /  P  MAIN 

COMMON  /  QQQ  /  Q  MAIN 

COMMON  /  MCOL /  MC  T, MC  A, MCG  MAIN 

COMMON  /  MAX  /  MMISS, MLINK  MAIN 

DATA  MAXP/  25  /  DEFER 

DATA  ML  INK, MC  T/  100,  9  /  MAIN 

DATA  MMISS, MCA  /  500,  9  /  DEFER* 

DATA  MRG, MCG/  25,  5  /  DEFER 

DATA  LIST/  1  /  MAIN 

DATA  IPLOT/  0  /  MAIN 

DATA  ISP/  0  /  MAIN 

DATA  IDF  /  0  /  DEFER* 

DATA  ITRNS  /  0  /  DEFER* 

DATA  TP.TM,PFT M  /  90.  ,  120.  /  DEFER* 

10  FORMAT ( 1615)  MAIN 

20  FORMAT ( 10F8. 0 )  MAIN 

100  FORMAT ( 1H1)  MAIN 

110  FORMAT ( 1H  ,125(1HX)>  MAIN 

C  MAIN 

C  MAIN 

C  MAIN 

C  MAIN 

IF(TRTM.LE.DFTM)  GO  TO  1000  DEFER 5 

TEMP-TRTM  DEFER5 

TRTM-DFTM  DEFER5 

DFTM=TEMP  DEFER5 

C  READ  IN  THE  HUMBER  OF  POOLS  TO  BE  SIMULATED.  MAIN 

C - MAIN 

1000  READ( 5, 10 )  NPOOLS  MAIN 

IF ( NPQOLS.LT . 0)  STOP  MAIN 

IF(NP30LS.GT.0  .OR.  NPOOLS. LE.  MAXP)  GO  TO  1005  MAIN 

WRITE! 6, 160)  NPOOLS  MAIN 

160  FORMATdH  , 'WARNING--  NUMBER  OF  POOLS  IS*, 15)  MAIN 

STOP  MAIN 

C  READ  THE  DATA  FOR  THE  POOLS.  MAIN 

1005  DO  10*0  K»l, NPOOLS  MAIN 

C  READ  IN  —  MAIN 
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"76/76  OPT-1  ROUND"*--*/ 

FTN  4.8*508 

09/18/80 

09.54 

POOL  NUMBER,  VEHICLE  TYPE 

NUMBER* 

PAYLOAD  (STX10), 

MAIN 

43 

CAPACITY  (CUBE),  NUMBER  OF 

TRUCKS 

IN  POOL, 

MAIN 

44 

READ!5,10)  ( P ! J,K), J"l»  5)  MAIN  46 


READ  IN  INFORMATION  ON  THE  LINKS, 

HA  IN 

MAIN 

r 

48 

K 1*  0 

HA  IN 
MAIN 

50 

DO  1010  I-1,HLINK 

MAIN 

51 

READ! 5, 20)  (T!I,J,K),J-1,MCT) 

MAIN  ' 

52 

IF(T(I,l,K).LT.O.)  GO  TO  1020 

MAIN 

53 

Kl-I 

MAIN 

54 

1010  CONTINUE 

MAIN 

55 

1020  P!6,K.)-K1 

MAIN 

56 

READ  IN  INFORMATION  ON  THE  MISSIONS.  MAIN  58 


Kl-0 

HA1N 

MAIN 

60 

DO  1030  I"l, MMISS 

MAIN 

61 

READ! 5, 20)  (A(I,J,K),J-1, MCA) 

MAIN 

62 

IF(A(I,l,K).LT.O.)  GO  TO  1035 

MAIN 

63 

Kl-I 

MAIN 

64 

1030 

CONTINUE 

MAIN 

65 

1035 

P(7,K)»K1 

MAIN 

66 

IFILIST.GT.D)  CALL  OUTKK) 

MAIN 

68 

o 

o 

CONTINUE 

MAIN 

70 

MAIN 

71 

MAIN 

72 

MAIN 

M  A  TM 

73 

BEGIN  SIMULATING  THE  MISSIONS,  PROCESSING 

ONE  POOL  AT  A 

MAIN 

75 

TIME. 

MAIN 

76 

**■  ■ 

HA  IN 

DO  7000  K-1,NPOOLS 

MAIN 

78 

WRITE(6,120)  R(1,K) 

MAIN 

79 

120 

FORMAT! 1HO,10X, ’SIMULATING  POOL  NO.’, 15) 

MAIN 

80 

NM*P(7,K) 

MAIN 

81 

IF(NM.LE.O)  GQ  TO  7000 

MAIN 

82 

DO  1060  1-1,6 

DEFER4 

17 

DT ( I, K) "0. 

0EFER5 

7 

DO  1050  J-1,5 

DEFER4 

18 

0(  I,  J, K) »0. 

MAIN 

85 

1050 

CONTINUE 

MAIN 

86 

1060 

continue 

MAIN 

87 

NL-P! 6, K) 

MAIN 

88 

m  ■ 1 "  ■  11  ™  ,*ri 

PROCESS  THE  MISSIONS  FOR  THIS  POOL. 

MAIN 

MAIN 

MAIN 

90 

91 

92 

DO  2010  I-1,NH 

DO  1065  L-1,NL 

MAIN 

93 

1 3»L 

MAIN 

94 

IF(T(L,1,K).EQ.A(I,1,K))  GO  TO  1070 

MAIN 

95 

1065 

CONTINUE 

MAIN 

96 

WRITE ( 6, 130)  P(1,K),A(I,1,K) 

MAIN 

97 

130 

FORMAT! 1H0, ’WARNING -  FILE’, 13,’  DOES  NOT  CONTAIN 

LINK’, F7. 0.10X, 

MAIN 

98 

-  *’ SKIPPING  TO  NEXT  POOL’) 

MAIN 

99 

GO  TO  7000 

MAIN 

100 

15 
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1070  CONTINUE  MAIN 

C  CALCULATE  THE  TIME  REQUIRED  TO  ACCOMPLISH  THE  MISSION*  MAIN 

C  (IF  UNDERTAKEN).  MAIN 

F(I,1,K)«0.  MAIN 

DO  1080  J«2,KCT  MAIN 

F(I,1,K)*F(I,1,K)+T(I3,J,K)  MAIN 

1080  CONTINUE  MAIN 

IF(A(I,3,K).EQ.O.  )  GO  TO  1090  MAIN 

C  CALCULATE  DEPARTURE  TIME  (IN  TOTAL  MINUTES).  MAIN 

C - MAIN 

E(I,1,K)«1440.*A(I,2,K)+A(I,3,K)-40.*AINT(A(I,3,K)/100.)  MAIN 

GO  TO  2000  MAIN 

C  CALCULATE  THE  DEPARTURE  TIME  (IN  TOTAL  MINUTES)  REQUIRED  MAIN 

C  TO  MEET  THE  SCHEDULED  DELIVERY  TIME.  MAIN 

C - MAIN 

1090  F(I,l,K)«1440.*A(I»2,K)+A(I,4,K)-40.  +  AINT(Am4,K)/100.  )-F(  I,1,K)  MAIN 

C  IF  IT  IS  A  SUPPLY  MISSION,  DROP  THE  TIME  REQUIRED  To  MAIN 

C  RETURN  Tn  THE  SUPPORT  POOL.  MAIN 

IF(T(I3,9,K).EQ.0.  .OR.  A (I,8,K ) . GT.2. )  MAIN 

*  E(I»1»K)-E(I»1»K)+T(I3,7,K)+T(I3,8,K)  MAIN 

2000  CONTINUE  MAIN 

C  CALCULATE  THE  TIME  THE  VEHICLES  MILL  BE  AVAILABLE  TO  MAIN 

C  UNDERTAKE  THE  NEXT  MISSION.  MAIN 

I7»I+P(7,K)  MAIN 

E(I7,  1,K)*E(I»1»K)+F(I,1,  K)  MAIN 

E(I,2,K)-FL0AT(I)  MAIN 

E ( 17, 2, K) «-E ( I, 2, K)  MAIN 

C  FIND  THE  PERCENT  WT.  CAPACITY  OF  A  VEHICLE  REQUIRED  FOR  MAIN 

C  THE  MISSION.  MAIN 

B5«10O.*A(I,5,K)/FL0AT(P(3,K) )  MAIN 

C  FIND  THE  PERCENT  CUBE  CAPACITY  OF  A  VEHICLE  REQUIRED.  MAIN 

B6-100.*A(I,6*K)/FL0AT( P(4,K) )  MAIN 

C - MAIN 

C  STnRE  THE  MORE  STRINGENT  REQUIREMENT.  (THIS  IS  REALLY  MAIN 

C  THE  NUMBER  OF  VEHICLES  REQUIRED,  MULTIPLIED  BY  100).  MAIN 

F(I,2,K)«AMAX1(B5,B6)  MAIN 

C (I,K)-F(I,2,K)  ■  DEFER4 

2010  CONTINUE  MAIN 

F ( MMISS, 1, K) *  1. '  MAIN 

C  SORT  THE  MISSION  TIMES  (INCLUDING  AVAILABILITY  TIMES)  MAIN 

C  FROM  EARLIEST  TO  LATEST,  GIVING  A  CHRONOLOGICAL  MAIN 

C  SEQUENCE  OF  MISSION  EVENTS.  MAIN 


09.54. 


101 

102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 

113 

114 

115 

116 

117 

118 

119 

120 
121 
122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 
19 

150 

151 

152 

153 

154 

155 

156 
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CALI  SORT(K) 


STORE  THE  EARLIEST  DISPATCH  OP.  DEPARTURE  TIME, 


Pf9/K)-E(1»L#K) 


STORE  LATEST  VEHICLE  AVAILABILITY  TIME. 


I7-2*R(7,K) 

PU0»K)-ECI7»1»K) 

P ( 8,K } »  0 
P(ll,K>-0 
NZ3-0 
NZ7-0 

DO  2040  I-l  j HM 

IF(A(I»8,K).GT.2.)  GO  TO  2030 
IF  < ISP )  2020/2030,2025 
?0>0  A(I,8,K)«1. 

GO  TO  2030 
2025  A<I,8,K)«2. 

2030  CONTINUE 

IF(IDF)  2033,2040,2037 
2033  A(I,9,KI-0. 

GQ  TO  2040 
2037  A( I, 9, K) - 1. 

2040  CONTINUE 


*$'♦♦♦**♦♦♦♦+  *♦♦*+♦♦♦*♦  +  *+*♦*  *******♦*♦♦♦  44****  ♦♦♦********♦*♦***♦  l>* ***** 

PROCESS  EACH  EVENT. 

*  * **** **************** ************ ******** ******** ****** ********* ****** 

NZ-NM 

IB-0 

DD  5000  1-1,17 
UCE-I 

NY*INT( ABS(E< I,2»K))1 


FIND  THE  NUMBER  OF  VEHICLES  REQUIRED  FOR  THIS  MISSION. 


NTRCK-INT(F(NY,2,K)/100.) 

IF ( AMOD (F(NY, 2, K), 100, ) .NE. 0, )  NTRCK-NTRCK*1 

IS  IT  A  MISSION  OR  A  RETURN  FROM  A  MISSION. 


IF(E(I,2,K).LT.O. J  GO  TO  2050 

DETERMINE  HOW  MANY  VEHICLES  WILL  BE  OCCUPIED  IF  THIS 
MISSION  IS  UNDERTAKEN. 


P(8/K)-P(8»K) +NTRCK 


ARE  THERE  ENOUGH  VEHICLES  IN  THE  POOL. 


IF(P(8,K».LE.P{5,K>)  GO  TO  4050 


MAIN 

158 

MAIN 

160 

MAIN 

161 

MAIN 

162 

MAIN 

163 

MAIN 

164 

MAIN 

165 

MAIN 

166 

MAIN 

167 

MAIN 

168 

MAIN 

169 

MAIN 

170 

MAIN 

171 

MAIN 

172 

MAIN 

173 

DEFER4 

20 

DEFER4 

21 

DEFER4 

22 

DEFER4 

23 

DEFER4 

24 

DEFER 4 

25 

DEFER4 

26 

DEFEP.4 

27 

DEFER4 

28 

DEFER4 

29 

MAIN 

179 

MAIN 

180 

MAIN 

181 

MAIN 

182 

MAIN 

183 

MAIN 

184 

MAIN 

185 

MAIN 

186 

MAIN 

187 

MAIN 

188 

DEFER4 

30 

MAIN 

189 

DEFER4 

31 

MAIN 

190 

DEFER4 

32 

DEFEP.4 

33 

DEFER4 

34 

DEFER4 

35 

DEFER4 

36 

MAIN 

191 

MAIN 

192 

MAIN 

193 

MAIN 

194 

MAIN 

195 

DEFER4 

37 

DEFER4 

38 

MAIN 

197 

DEFER4 

39 

MAIN 

200 

MAIN 

201 

MAIN 

202 

MAIN 

203 

17 


OOOOOOOO  ooor-1  <->  o  o  o  <->oor><-> 


M  TVCM 


76/76  OPT-1  ROUND**-*/ 


FTN  *.8*508 


09/18/80  09.5* 


MZ7*1 


DETERMINE  THE  NUMBER  OF  VEHICLES  RETURNING  FROM  A  MISSION 
OR  IF  THERE  ARE  NOT  ENOUGH  VEHICLES  IN  THE  POOL  TO 
TAKE  THE  WHOLE  MISSION#  RESET  THE  INDICATOR. 

2050  P(8#K)-P(8#K)-NTRCK 

IF ( NZ7. EQ.O)  GO  TO  5000 
NZ7-0 

I8-INT(A(NY»8»K)) 

IF(I8.GT.15)  18-18-15 

GO  TO  (2060#3020»5000#30*0#5000#3050#5000#*020) »  18 

*****************************  ORIGINAL  MISSIONS  ********************* 

2060  IF(P(8,K).EQ.P(5#K))  GO  TO  3000 
A(HY»  8»K)-27. 

NZ-NZ+1 

BT* AMAX1 (A(NY*5#K)/FLOAT(P(3#K))»A(NY#6#K)/FLOAT(P(*»K))) 

ZT* FLOAT (P(f#K)— P(8#K)) 

Z5-100. *ZT 
TEMP-ZT/BT 


HOW  MUCH  OF  THIS  CARGO  CAN  THE  POOL  HAUL  (IN  TONS  AND 
CUBE)  WITH  THE  VEHICLES  AVAILABLE. 


B5«A(NY#5#K)*TEMP 
B6«A(NY,6#K)*TEMP 
F ( NY#  2#  K) -Z5 


INCREASE  THE  INDICATOR  TO  ACCOUNT  FOR  THE  PAPTIAL  MISSION 
P(8#K)*P( 5#K) 


STORE  THE  INFO  ON  THE  MISSION  COMPLETED  IN  PART.  THE 

REMAINDER  OF  THE  MISSION  WILL  BE  DEFERRED  (COMPLETED 
LATER)#  TRANSFERRED#  OR  SKIPPED. 


DO  2070  J*l»  MCA 
A(NZ#J»K)«A(NY»J#K) 

2070  CONTINUE 

A (NZ, 5, K)  -B5 
A (NZ# 6#K) -B6 
A(NZ#8#K)*3. 
F(NZ#1#K)*F(NY#1#K) 

F (NZ#  2#  K) -Z5 
NA-2*NZ 

E(NA#l#K)-E(I*l*K)+F(NY*l#K) 
E (NA#  2#  K) --FLOAT ( NZ ) 

NB-NA-1 

E(NB,1#K)-E(I#1#K) 

E  ( NB#  2#  K)  ■  FLOAT(NZ) 

F (MMISS# 1#  K) -3. 

GO  TO  *030 


MAIN 

20* 

MAIN 

205 

MAIN 

206 

MAIN 

207 

MAIN 

208 

MAIN 

20° 

DEFER* 

*0 

main 

212 

MAIN 

213 

MAIN 

21* 

defer 

7 

MAIN 

216 

MAIN 

217 

DEFER* 

*1 

DEFER* 

*2 

MAIN  • 

218 

MAIN 

219 

DEFER 

8 

MAIN 

221 

MAIN 

222 

MAIN 

223 

MAIN 

22* 

MAIN 

225 

MAIN 

226 

MAIN 

227 

main 

228 

MAIN 

229 

MAIN 

230 

MAIN 

231 

MAIN 

232 

MAIN 

233 

MAIN 

23* 

MAIN 

235 

MAIN 

236 

MAIN 

237 

MAIN 

238 

DEFER* 

*3 

DEFER*  ! 

** 

MAIN 

2*1 

MAIN 

2*2 

MAIN 

2*3 

MAIN 

26* 

MAIN 

2*3 

MAIN 

2*6 

MAIN 

2*7 

MAIN 

2*8 

MAIN 

2*9 

MAIN 

250 

MAIN 

251 

MAIN 

252 

MAIN 

253 

MAIN 

23* 

MAIN 

255 

MAIN 

256 

DEFER3 

3 

MAIN 

292 

MAIN 

293 

18 
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NO  VEHICLES  AVAILABLE  TO  HAUL  EVEN  PART  OF  THE  CARGO.  IF 
THE  MISSION  CAN'T  BE  DEFERRED  OR  TRANSFERRED*  IT 
WILL  BE  SKIPPED. 


3000  A(NY,8*K)»7. 
GO  TO  4040 


THE  MISSION  CAN'T  BE  SPLIT.  IF  IT  CAN'T  BE  DEFERRED  OR 
TRANSFERRED*  IT  WILL  BE  SKIPPED. 


3020  A(NY*8*K)"9. 
GO  TO  4040 


****************************  ADDITIONAL  MISSIONS  ******************** 


ADDITIONAL  MISSION  RESULTING  FROM  TRANSFERRAL  OF  THE 

REMAINDER  OF  A  SPLIT  MISSION.  SINCE  THERE  ARE  NOT 
ENOUGH  VEHICLES*  THE  MISSION  WILL  BE  SKIPPED  (WILL 
NOT  BE  SPLIT  FURTHER)  IF  IT  CAN'T  BE  DEFERRED. 


3040  A (NY*  8#  K ) *13 • 
A(NY,7,K)*0. 
GO  TO  4040 


ADDITIONAL  MISSION  RESULTING  FROM  TRANSFERRAL  OF  AN 
ENTIRE  MISSION. 


3050  IF< P(8,K) .EQ.P(5,K) )  GO  TO  4000 
A(NY,B,K)*26. 

NZ-NZU 

BT*AMAX1(A(NY#5*K)/FL0AT(P{3*K))*A(NY»6*K)/FL0AT(P(4*K))) 

ZT«FL0AT(P(5*K)-P(8,K)) 

Z5-100.PZT 

TEMP-ZT/BT 


HOW  MUCH  OF  THIS  CARGO  CAN  THE  POOL  HAUL  (IN  TONS  AND 
CUBE)  WITH  THE  VEHICLES  AVAILABLE. 


B5-A(NY>5#K)*TEMP 
B6«A(NY,6,K)*TEMP 
F(NY»  2»K)*Z5 


INCREASE  THE  INDICATOR  TO  ACCOUNT  FOR  THE  PARTIAL  MISSION 
P ( 8#  K) "P ( 5*  K) 


STORE  THE  INFO  ON  THE  MISSION  COMPLETED  IN  PART.  THE 
REMAINDER  OF  THE  MISSION  WILL  BE  DEFERRED* 
TRANSFERRED*  OP.  SKIPPED. 


MAIN 

294 

MAIN 

295 

DEFER4 

45 

DEFER4 

46 

MAIN 

297 

DEFER  4 

47 

DEFER  3 

4 

MAIN 

314 

MAIN 

315 

MAIN 

316 

DEFER4 

48 

DEFER4 

49 

MAIN 

319 

DEFER4 

50 

DEFEP.3 

5 

MAIN 

336 

DEFER4 

51 

DEFER4 

52 

MAIN 

337 

MAIN 

338 

MAIN 

339 

MAIN 

340 

MAIN 

341 

DEFER4 

53 

MAIN 

343 

DEFER4 

54 

DEFER4 

55 

DEFER4 

56 

MAIN 

347 

MAIN 

348 

MAIN 

349 

MAIN 

350 

MAIN 

351 

MAIN 

352 

MAIN 

353 

DEFER 

10 

MAIN 

355 

MAIN 

356 

MAIN 

357 

MAIN 

358 

MAIN 

359 

MAIN 

360 

MAIN 

361 

MAIN 

362 

MAIN 

363 

MAIN 

364 

MAIN 

365 

MAIN 

366 

MAIN 

367 

MAIN 

368 

MAIN 

369 

MAIN 

370 

MAIN 

371 

MAIN 

372 

DEFER4 

57 

DEFER4 

58 

MAIN 

376 
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DO  3060  J-l, MCA 

MAIN 

377 

A(NZ, J,K)-A(NY,J,K) 

MAIM 

378 

CONTINUE 

MAIN 

379 

A  (NZ, 5, K) -B5 

MAIN 

380 

A(NZ» 6, K) «B6 

MAIN 

381 

A(NZ, 8, K) -18. . 

DEFER 

11 

F(NZ, 1,K)-F(NY,1,K) 

MAIN 

383 

F (NZ, 2, K) -Z5 

MAIN 

384 

N A=2*NZ 

MAIN 

385 

E(NA,1,K)*E(I,1,K)«-F(NY,1,K) 

MAIN 

386 

E(NA,2,K)— FLOAT(NZ) 

MAIN 

387 

NB=NA-1 

HAIN 

388 

E(NB,1,K)«E(I,1,K) 

MAIN 

389 

E(NB,2,K)»  FLOAT(NZ) 

HAIN 

390 

F ( HHI SS, 1, K) -3. 

MAIN 

391 

GO  TO  4030 

DEFER3 

7 

HAIN 

424 

HAIN 

425 

NO  VEHICLES  AVAILABLE  TO  HAUL  EVEN 

PART 

OF  the  CARGO,  IF  HAIN 

427 

THE  MISSION  CAN'T  BE  DEFERRED 

OR  TRANSFERRED,  IT  DEFER4 

59 

WILL  BE  SKIPPED. 

DEFER4 

r  —  _ _ _ H  A  T  y 

60 

A(NY,8,K)-15. 

DEFER4 

61 

GO  TO  4040 

DEFER 3 

8 

HAIN 

446 

HAIN 

447 

448 
62 

THE  HISSION  CAN'T  BE  SPLIT.  IF  IT 

CAN'T 

BE  DEFERRED  OR  DEFER4 

TRANSFERRED,  IT  WILL  BE  SKIPPED. 


4020  A(NY,8,K)-17. 
GO  TO  4D40 


FIND  THE  AMOUNT  OF  CARGO  REMAINING  FROM  THE  SPLIT  HISSION 
4030  CALL  REMAIN(K) 


CAN  THE  HISSION  BE  COMPLETED  LATER. 


4040  CALL  PSTPN(K,IRT) 


IF  IT  CAN  BE  COMPLETED  LATER  AND  IT'S  AN  ENTIRE  MISSION  - 


IF ( IRT.EQ, I  .AND.  A(NY, 8, K) ,LT. 26. )  GO  TO  4050 


BUT  IF  IT  CAN'T  BE  COMPLETED  LATER  AND  IT'S  AN  ENTIRE 
HISSION  - 


IF( IRT.EQ. 0  .AND.  A( NY, 6, K) *L T. 26. )  F<NY*2,K)»0. 

IF  IT'S  THE  REMAINDER  OF  A  SPLIT  HISSION,  STORE  THE  INFO 
FOR  REPORTING  LATER  AS  A  HISSION  DEFERRED, 
TRANSFERRED,  OR  SKIPPED. 


DEFER4 

MAIN 

DEFER4 

DEFER3 

DEFEP.3 

DEFER3 

DEFER4 

DEFER4 

DEFER4 

DEFER4 

DEFER4 

DEFER4 

DEFER4 

DEFER4 

DEFER4 

DEFER4 

DEFER4 

DEFER4 

DEFER6 

DEFER6 

DEFER6 

DEFER6 

DEFER5 

DEFER4 

DEFER4 

DEFER4 

DEFER4 

DEFER4 


63 
451 

64 
9 

10 

11 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 
1 
2 

3 

4 
8 

77 

78 

79 

80 
81 
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IF(A<MY,8,K).GE.26.)  CALL  STRMSS(K) 


FTN  4.8+508 


IF  IT  CAN'T  BE  COMPLETED  AT  A  LATER  TIME  - 

CAN  THE  ENTIRE  MISSION  OP  THE  REMAINDER  OF  THE  SPLIT 

MISSION  BE  TRANSFERRED.  IF  SO  - 

INCREASE  THE  COUNTER  FOR  MISSIONS  TRANSFERRED  AND  STORE 
THE  MISSION  INFO  FOR  LATER  EXECUTION  OF  TRANSFER. 


IFdRT.EQ.O  .AND.  A<NY>7,K)  .GT.O. )  CALL  TRNSFR(K) 
GO  TO  4080 


SET  THE  MISSION  DISPOSITION  INDICATOR  FOR  MISSIONS  THAT 
HERE  COMPLETED. 


4050  I8*INT(A(NY,8,KJ) 

A(NY,8,K)«12. 

IF( I8.EQ.4  .OR.  I8.EQ.19)  GO  TO  4080 
A(NY#8,K>*14. 

IF ( 18 . EQ.6  .OR.  18. EQ. 21)  GO  TO  4080 
A(NY,8,K)-16. 

IF( I8.EQ.8  .OR.  I8.EQ.23)  GO  TO  4080 
A(NY,8,K)-5. 

IF(I8.EQ.  7.)  GO  TO  4080 
A(NY,8,K)«10. 

I F ( 18.  EQ.  9. )  GO  TO  4080 
A (NY, 8, K) -20. 

IF ( I8.EO.13. J  GO  TO  4080 
A(NY,8,KJ-22. 

IF ( 18. EQ. 15.7  GO  TO  4080 
A  (NY,  8, K) »24. . 

IF  (  18 . EQ.17. )  GO  TO  4080 
A(NY,B,K).FL0AT(I8) 


SET  THE  INDICATOR  FOR  MAXIMUM  VEHICLE  USEAGE  IN  THE  POOL. 


4080  NZ3-MAX0(NZ3, P18,K)) 
5000  CONTINUE 


P(7,K)»NZ 
P(8,K)»NZ3 
DO  5010  I»l# NZ 

IF(Ad,8,K) .LT.26.)  GO  TO  5010 
F(I,2»K)«0.v 


RESET  INDICATORS  FOR  REMAINDERS  OF  SPLIT  MISSIONS  THAT 
HERE  COMPLETED  LATER  THAN  THE  SCHEDULED  TIME. 


IF(A(I»7,K).LT.O. )  F(Ii2>K)aC(I>K) 
5010  CONTINUE 

CALL  SORT (K) 


PROPER  POOLS. 


09/18/e0 

09.54 

DEFFR4 

82 

— 

DEFEP.3 

19 

DEFFR4 

83 

DEFER3 

20 

DEFER3 

21 

DEFER3 

22 

DEFER3 

23 

— 

DEFER3 

24 

DEFER5 

9 

DEFER4 

85 

MAIN 

468 

MAIN 

469 

— 

MAIN 

470 

MAIN 

471 

MAIN 

472 

— 

MAIN 

473 

MAIN 

474 

DEFER 

17 

DEFER 

18 

DEFER 

19 

DEFER 

20 

DEFER 

21 

DEFER 

22 

DEFER4 

86 

DEFER4 

87 

DEFER4 

88 

DEFER4 

89 

DEFER4 

90 

DEFER4 

91 

DEFER4 

92 

DEFER4 

93 

DEFER4 

94 

DEFER4 

95 

MAIN 

481 

— 

MAIN 

482 

L. 

MAIN 

483 

— 

MAIN 

484 

DEFER4 

96 

MAIN 

487 

MAIN 

488 

MAIN 

489 

MAIN 

490 

MAIN 

491 

MAIN 

492 

MAIN 

493 

DEFER5 

10 

DEFER4 

105 

— 

DEFER4 

106 

DEFER4 

107 

DEFER4 

108 

— 

DEFER4 

109 

DEFER4 

110 

MAIN 

496 

MAIN 

498 

— 

MAIN 

500 

HE 

MAIN 

501 

MAIN 

502 

21 


TVEM  76/76  OPT-1  ROUND**-*/ 


CALL  MVHSSN(K) 

C 

c 

C  CALCULATE  VEHICLE  STATISTICS. 

F  1=0. 

F2*0. 

F3*0. 

F4*0. 

DO  6005  1*1*12 
Q(I»K)*0. 

6005  CONTINUE 
I7*T*(  7*  K) 

DO  6040  I*l» 1 7 

IF(F(I»2»K).EQ,0.)  GO  TO  6040 

DO  6010  L*l»  NL 

NY=L 

IF(T(L*1,K).E0.A(I*1*K))  GO  TO  6015 
6010  CONTINUE 
6015  CONTINUE 

F5*F(I»2*K)/100. 

F1*F1+F5 

F2*F2*AINT(F5) 

F3*=F3*A(I»6,K) 

F4*F4*A(I#5*K) 

IF(AMOD<F(I»2*K)»10O.).EQ.O.)  GO  TO  6020 
F2-F2+1. 

F ( I »2#K)*100. *AINT( F5 ) *100. 

F5*F( I»2*K)/100. 

6020  Q ( 1*K)*Q( 1# K) *F 5* (T(N Y»  4» K ) +T (NY*  7#  K) ) 
Q(2*K)«Q(2»K)*F5*T(NY*2*K) 
Q(3»K)*Q(3»K)*F5*T(NY>5*K) 
Q(4,K)»Q(4,K1+F5*T<NY* B,K1 
IF(T(HY#9*K).EQ.O.)  GO  TO  6030 

C  FOR  PICK-UP  MISSIONS. 

C - 

Q(5»K1-Q(5,K)*F5*T(NY*6,K) 

Q(6,K)*Q(6»K)*F5*T(NY,9,K) 

GO  TO  6040 

C  FOR  DELIVERY  OR  SUPPORT  MISSIONS. 

6030  Q(5,K)*Q(5,K)+F5*T(NY,3,K) 
Q(6*K)-Q<6#K)*F5*T(NY*6*K) 

6040  CONTINUE 

IF ( P( 5»K) .EQ.O)  GO  TO  6050 

C  UNUSED  CAPACITY- 

c - 

QI7,K3»100.*(F2-F1}/F2 

c - - - 

C  CUBIC  EFFICIENCY- 

C - - - 

Q(8,K)»100.*F3/<F1*FL0AT(P(4*K) )) 


FTN  4.B+50B 


09/10/80 

09.54. 

-  MAIN 

503 

DEFER  3 

27 

MAIN 

534 

MAIN 

535 

-  MAIN 

536 

MAIN 

537 

-  MAIN 

538 

MAIN 

539 

MAIN 

540 

MAIN 

541 

MAIN 

542 

MAIN 

543 

MAIN 

544 

MAIN 

545 

MAIN 

546 

MAIN 

547 

MAIN 

548 

MAIN 

549 

MAIN 

550 

MAIN 

551 

MAIN 

552 

MAIN 

553 

MAIN 

554 

MAIN 

555 

MAIN 

556 

MAIN 

557 

MAIN 

558 

MAIN 

559 

MAIN 

560 

MAIN 

561 

MAIN 

562 

MAIN 

563 

MAIN 

564 

MAIN 

565 

MAIN 

566 

MAIN 

567 

-  MAIN 

568 

MAIN 

569 

-  MAIN 

570 

MAIN 

571 

MAIN 

572 

MAIN 

573 

-  MAIN 

574 

MAIN 

575 

-  MAIN 

576 

MAIN 

577 

MAIN 

578 

MAIN 

579 

MAIN 

580 

-  MAIN 

581 

MAIN 

582 

-  MAIN 

583 

MAIN 

584 

-  MAIN 

585 

MAIN 

586 

-  MAIN 

587 

MAIN 

588 

22 


o  o  ooo  oo<^>  o  no  o  o  ono  no  on  o  o  o 


i  tvtm 


76/76  OPT-1  ROUND-*— */ 


FTN  4.8+50P 


WEIGHT  EFFICTENCY- 


Q(9,K)«100.*F4/(F1*FL0AT(P(3#K))) 
6050  CONTINUE 
7000  CONTINUE 


*********************************************************************** 

POST-PROCESSOR.  SECTION 


00  10000  K-1,NP00LS 
WRITE  C  6* 100) 

WRITE ( 6/110) 

CALL  0UT2 ( K) 

DO  7060  1*1, HRG 
DO  7050  J*l, MCG 
G ( I, J ) «0. 

7050  CONTINUE 
7060  CONTINUE 
NM-P(7*K) 

I F <  Nil. IE.  0)  GO  TO  9050 
DO  9010  I-l# NM 
L-INT(A(I,8*K)) 


B  #80 35* 8 038,  8 035# 8038, 901 0»8050* 8070)/  L 
WRITE! 6*150)  L 

150  F0RHAT11H  * 'WARNING--  IMPROPER  MISSION  DISPOSITION  C0DE-'*I5) 
GO  TO  9010 


MISSION  COMPLETED  IN  FULL.  A8  CODE  WAS  1  OR  2. 


7070  11*2 
12-1 

GO  TO  8090 


MISSION  TRANSFERRED  IN  FULL.  A8  CODE  WAS  6  OR  8. 


7080  II* 3 
12-1 

GO  TO  8090 


MISSION  DEFERRED  IN  FULL.  A8  CODE  WAS  5  OR  10. 


7085  11-4 
12-1 

GO  TO  8090 


MISSION  SKIPPED  IN  FULL.  A8  CODE  WAS  7  OR  9. 


7090  11-5 
12-1 


09/18/80 

o 

-o 

■ 

VJ1 

-r* 

MAIN 

589 

MAIN 

590 

- - 

MAIN 

591 

MAIN 

59  2 

MAIN 

593 

MAIN 

594 

MAIN 

595 

MAIN 

596 

MAIN 

597 

MAIN 

598 

MAIN 

599 

MAIN 

600 

MAIN 

601 

MAIN 

602 

'*** 

MAIN 

603 

MAIN 

604 

MAIN 

605 

MAIN 

606 

MAIN 

608 

MAIN 

610 

MAIN 

611 

MAIN 

612 

MAIN 

613 

MAIN 

614 

MAIN 

615 

main 

616 

MAIN 

617 

MAIN 

618 

090 

DEFER4 

111 

015 

DEFER* 

112 

DEFER4 

113 

MAIN 

622 

MAIN 

623 

MAIN 

624 

MAIN 

625 

MAIN 

626 

— — 

MAIN 

627 

MAIN 

628 

MAIN 

629 

MAIN 

630 

MAIN 

631 

MAIN 

632 

— - 

MAIN 

633 

MAIN 

634 

MAIN 

635 

MAIN 

636 

— 

DEFER 

27 

DEFER 

28 

— — 

DEFER 

29 

OEFER 

30 

DEFER 

31 

DEFER 

32 

— 

MAIN 

637 

MAIN 

638 

MAIN 

639 

DEFER 

33 

MAIN 

641 

23 


p  tvhm 


T6/76  OPT-1  ROUND-*-*/ 


FTN  4.8*508 


GO  TO  8090 


C - 

c 

c - 

8000  11-6 

GO  TO  OOOO 

c - 

C  ADDI1 

8010  11-12 
12=11 
13=10 

GO  TO  8080 


MISSION  COMPLETED  IN  PART.  A8  CODE  WAS  3. 


C - 

c 

c - 

8015  11=13 


12-11 

13=10 

GO  TO  8080 


C  ADDITIONAL  FRACTIONAL  MISSION  SKIPPED.  A6  CODE  WAS  13. 

8020  11-14 
12*11 
13-10 

GO  TO  8080 


C 


8030  11=16 
12-15 


13-10 

GO  TO  8080 


C  ADDITIONAL  MISSION  TRANSFERRED  IN  FULL.  A8  CODE-21  OR  2 

8035  11=17 
12-15 
13=10 

GO  TO  8080 

C  ADDITIONAL  MISSION  DEFERRED  IN  FULL.  A8  CODE-22  OR  24. 

8038  11*18 
12=15 
13=10 

GO  TO  8080 


ADDITIONAL  MISSION  SKIPPED  IN  FULL.  A8  CODE  WAS  15  OR  17 


C 

8040  11=19 
12=15 
13=10 

GO  TO  8080 

C  ADDITIONAL  MISSION  SKIPPED  IN  PART.  A8  CODE  WAS  26. 


09/18/80 

09.54 

MAIN 

642 

— 

MAIN 

643 

MAIN 

644 

— 

MAIN 

645 

DEFER 

34 

MAIN 

647 

— 

main 

648 

2. 

defer 

40 

— 

main 

650 

DEFER 

41 

DEFER 

42 

DEFER 

43 

MAIN 

654 

DEFER 

44 

>• 

DEFER 

45 

— * 

DEFER 

46 

DEFER 

47 

DEFER 

48 

defer 

49 

DEFER 

50 

— 

MAIN 

655 

DEFER 

51 

— 

main 

657 

DEFER 

52 

DEFER 

53 

DEFER 

54 

MAIN 

661 

MAIN 

662 

6  9 

DEFER 

55 

■»- 

MAIN 

664 

DEFER 

56 

DEFER 

57 

DEFER 

58 

MAIN 

668 

— 

MAIN 

669 

3. 

DEFER 

59 

MAIN 

671 

DEFER 

60 

DEFER 

61 

DEFER 

62 

MAIN 

675 

DEFER 

63 

DEFER 

64 

— 

DEFER 

65 

DEFER 

66 

DEFER 

67 

DEFER 

68 

DEFER 

69 

— 

MAIN 

676 

17 

DEFER 

70 

— 

MAIN 

678 

DEFER 

71 

DEFER 

72 

DEFER 

73 

MAIN 

682 

— 

MAIN 

683 

DEFER4 

114 

24 


TVEM 

r 

76/76  0PT  =  1  ROUND**-*/  FTN 

4,6*508 

09/16/60 

09.54. 

AR  A 

L 

8050 

11-15 

DEFER 

76 

12-10 

DEFER 

77 

GOTO  8090 

MAIN 

60  9 

-  C 

ADDITIONAL  MISSION  COMPLETEO  IN  PART.  A8 

CODE  WAS  16. 

DEFER 

78 

AO  ? 

V 

8060 

11-20 

DEFER 

79 

r 

GO  TO  9000 

MAIN 

694 

AO  a 

c 

MISSION  SKIPPED  IN  PART.  A8  CODE  WAS  27. 

OEFER 

65 

c  — — — — 

_  M  A  TM 

AQ  7 

8070 

11-1 

MAIN 

698 

GO  TO  9000 

MAIN 

699 

8080 

G(I3,1)-G(I3»1)+1. 

MAIN 

700 

G(I3#2)-G(I3,2)*A(I,5#K) 

MAIN 

701 

G(I3,4)«G(I3,4)+A<I,6,K) 

MAIN 

702 

8090 

G(I2»1)-G(I2,1)+1. 

MAIN 

70  3 

G<I2,2)-G(I2,2)*A<I,5,K) 

MAIN 

704 

G  ( 12#  4.)  -G(I2,4)+A(I,6,K) 

MAIN 

705 

o 

o 

o 

O' 

G(I1,1)«G(I1,1)+1. 

MAIN 

706 

G(I1#2)«6(I1,2)*A(I#5,K) 

MAIN 

707 

G ( 1 1#  4  ) -G ( 11#  4) +A ( I, 6# K ) 

MAIN 

708 

9010 

CONTINUE 

MAIN 

709 
7i  r\ 

c 

ORIGINAL  MISSIONS  OEFERRED,  TRANSFERRED, 

OR  SKIPPED  IN 

DEFER7 

i 

c 

PART. 

DEFER7 

2 

c 

ADDITIONAL  WHOLE  MISSIONS  DEFERREO,  TRANSFERRED,  OR 

DEFER7 

3 

c 

SKIPPED  IN  PART. 

DEFER7 

4 

71  A 

c 

DO  9020  J-1,MCG 

MAIN 

716 

G (7, J )-0( 1, J, K) 

OEFER 

86 

G ( 8, J ) -0(2, J, K) 

0EFER4 

115 

G(9,J )«0(3,  J,K) 

DEFER4 

116 

G  ( 21#  J )-Q(4»J,K) 

0EFER4 

117 

G{22, J)-0(5, J,K) 

DEFER4 

118 

G(23, J)-0(6,J,K) 

0EFER4 

119 

9020 

CONTINUE 

MAIN 

721 

DO  9030  I-l, MRG 

MAIN 

722 

G(I,3)-100.*G(I,2)/(G(1,2)*G(  10,2)) 

DEFER 

90 

G(I,5)-100«*G (1*4) / (G(l,4)+G( 10, 4) ) 

OEFER 

91 

9030 

CONTINUE 

MAIN 

725 

00  9040  1-1#  MRG 

MAIN 

726 

G(I,2)-G(I,2)/10.i 

MAIN 

727 

G(I#4)«G(I,4)/100, 

MAIN 

728 

9040 

CONTINUE 

MAIN 

729 

m 

CALL  0UT3 

MAIN 

731 

CALL  0UT5(K) 

0EFER5 

11 

CALL  0UT4IK) 

MAIN 

732 

IF( IPLOT.EQ.O)  GO  TO  9050 

MAIN 

734 

• 

CALL  PLOT(K) 

MAIN 

736 

9050 

WRI TE ( 6, 110) 

MAIN 

738 

10000 

CONTINUE 

MAIN 

739 

GO  TO  1000 

MAIN 

740 

END 

MAIN 

741 

25 

O  O  <“><“>  o 


c  sort 


76/76  OPT-1  ROUND-*-*/ 


FTN  4.0*500 


09/10/60  09.54 


*********************************************************************** 


****  SUBROUTINE  SORT 

SORT  TINTS  FOR  THE  POOL. 

C ********************************************************  *************** 

SUBROUTINE  SOP.TtK) 

DIMENSION  T( 100* 9/ 25 )»  A<500,9,25),  £11000,2*25),  P(15,25) 
DIMENSION  D( 500,9),  F(500, 2*25) 

INTEGER  P 

LEVEL  2,  T,A,F,E,D 


COMMON 

COMMON 

COMMON 

COMMON 


A 

D,E,F,T 
MMISS, ML  INK 
P 


KS* INTI  FI MMISS,1,K) ) 

IF(KS.EQ.Z)  GO  TO  500 
IFIKS.GE.3)  GO  TO  200 
F  C  MMISS, 1>  K) *2. ' 

200  JM«2*P17,K) 

IM-JM-1 

DO  400  1*1, IM 

Il-I+l 

DO  300  J-  II, JM 

IF(E(I,1,K).LT.E(J,1,K))  GO  TO  300 
IF(E(I,1,K).GT.E(J, 1,K))  GO  TO  210 
IF(E(I,2,K).LE.E(J, 2, K) )  GO  TO  300 
GO  TO  250 
210  TEMP-EU,1,K) 

E(I,1,K)-E(J,1,K) 

E(J,1,K)-TEMP 
250  TEMP*E( I,2,K) 

E(I,2,K)*E(J,2,K) 

E(J,2,K)-TEMP 
300  CONTINUE 
400  CONTINUE 
500  RETURN 
END 


SORT 

SORT 

S0RT1 

S0RT1 

SORT 

SORT 

S0RT1 

S0RT1 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 

SORT 


26 


o  o  r->  ono  o  o  o  ooooo 


REMAIN 


76/76  OPT-1  POUND*-*-*/ 


FTN  4.8+508 


00/18/80  09.54. 


C * ***************** **************************** *************************  Pf MAIN 


REMAIN 

****  SUBROUTINE  REMAIN  REMAIN 

FIND  THE  AMOUNT  OF  CARGO  REMAINING  FROM  A  SPLIT  MISSION.  REMAIN 

REMAIN 

***********************************************************************  REMAIN 
SUBROUTINE  REHAIN(K)  REMAIN 

DIMENSION  A(500>9>25)>  P(15»25)  REMAIN 

DIMENSION  C(500*25)  REMAIN 

LEVEL  2#  A» C  REMAIN 

INTEGER  P  REMAIN 

COMMON  /  /  NPOOLS*NY*  B5*B6»NTRCK  REMAIN 

COMMON  /  AAA  /  A  REMAIN 

COMMON  /  CCC  /  C  REMAIN 

COMMON  /  PPP  /  P  REMAIN 

REMAIN 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 


N-NY 

B5«A(N#5,K)-B5 

B6-A(N,6*K)-B6 


REMAIN 

REMAIN 

REMAIN 

REMAIN 

REMAIN 


FIND  THE  AMOUNT  OF  TRUCK  CAPACITY  NEEDED  TO  HAUL  THE  REMAINING  REMAIN 
CARGO.  REMAIN 


17 

18 

19 

20 
21 
22 

23 

24 


U«100.* AMAX1( B5/ FLOAT (P(3«K))»B6/FL0AT(P(4>K)) ) 
C (N>K)«U 


FIND  THE  NUMBER  OF  TRUCKS  REQUIRED. 


NTRCK-INTUI/100.) 

IF ( AMOD (U» 100 . ) .NE.O . )  NTRCK-NTRCK+1 

RETURN 

END 


REMAIN 

REMAIN 

REMAIN 

REMAIN 

REMAIN 

REMAIN 

REMAIN 

REMAIN 

REMAIN 


25 

26 

27 

28 

29 

30 

31 

32 

33 


27 
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PSTPN 


”b/7b  OPT  *1  ROUND-*-*/ 


FTN  4.8*508 


09/18/80  09.54 


*********************************  ************************************* 

***  SUBROUTINE  PSTPN  ' 

POSTPONE  THE  MISSION  UNTIL  ENOUGH  TIME  AND  VEHICLES  ARE 
AVAILABLE. 

********************************************************************** 
SUBROUTINE  PSTPN(K,IRT) 

DIMENSION  T  ( 100,  9,  25 ) ,  A<500,9,25),  E<1000,2,25),  P(15,25) 
DIMENSION  D(500,9),  F(500, 2, 25) 

DIMENSION  B ( 500, 2,25),  DT(6,25) 

INTEGER  P 

LEVEL  2,  T,A,F,E,D,B 

COMMON  /  /  NP00LS,NY,B5,B6,NTRCK 

COMMON  /  AAA  /  A 

COMMON  /  BBB  /  D,E,F,T 

COMMON  /  DDD,  /  ITRNS,TRTM,DFTH,NCE, IB,NZ3,DT 
COMMON  /  EEE  /  B 
COMMON  /.PPP  /  P 


PSTPN 

1 

PSTPN 

2 

PSTPN 

3 

PSTPN 

4 

PSTPN 

5 

PSTPN 

6 

PSTPN 

7 

PSTPN 

8 

PSTPN 

9 

PSTPN 

10 

PSTPN1 

1 

PSTPN 

12 

PSTPN 

13 

PSTPN 

14 

PSTPN 

15 

PSTPN 

16 

PSTPN1 

2 

PSTPN 

18 

PSTPN 

19 

PSTPN 

20 

PSTPN 

21 

PSTPN 

22 

PSTPN 

23 

PSTPN 

24 

PSTPN 

26 

PSTPN 

27 

PSTPN 

28 

PSTPN 

29 

PSTPN 

30 

PSTPN 

31 

PSTPN 

32 

PSTPN 

33 

PSTPN 

34 

PSTPN 

35 

PSTPN 

36 

PSTPN 

37 

PSTPN 

38 

PSTPN 

39 

PSTPN 

40 

PSTPN 

41 

PSTPN 

42 

PSTPN 

43 

PSTPN 

44 

PSTPN 

45 

PSTPN 

46 

PSTPN 

47 

PSTPN 

48 

PSTPN 

49 

PSTPN 

50 

PSTPN 

51 

PSTPN 

52 

PSTPN 

53 

PSTPN 

54 

PSTPN 

55 

PSTPN 

56 

PSTPN 

57 

PSTPN 

58 

28 


oooooooo  o  r>  o  <->  oooooo  ooo 


PSTPN 


76/76  OPT-1  ROUND-*-*/ 


FTN  4.8+508 


N0E«2*P(7,K) 

NXT-NCE+1 

IFINXT.GE.NOE )  RETURN 


CHECK  THE  REMAINING  EVENTS  FOR  A  SLACK  PERIOD. 


DO  5000  J-MXT*N0E 
NW«INT(ABS(E< J*2,K))) 
MT*INT(F(NW.»2*K)/100.) 
IF(AM0D(F(NH,2»K),I00.) .NE.O. )  NT-NT+1 
IF(E(J»2*K).LT.O.)  GO  TO  500 
NOCONOCC+NT 
GO  TO  5000 
500  TMNXT«E( J*1*K) 

NOCC-NOCC-NT 


ARE  THERE  ENOUGH  TRUCKS  AVAILABLE. 


IF(N0CC+NTRCK«GT.P(5»K) )  GO  TO  5000 
IS  IT  TOO  LATE. 

IF(E(J#1*K|.GT.CTIME+ DELAY)  GO  TO  6000 

TMLST-TMNXT 

NCC-NOCC 

NJ-J+1 


IS  THERE  ENOUGH  TIME  TO  COMPLETE  THIS  MISSION  BEFORE  THE 
TRUCKS  WILL  BE  NEEOEO  FOR  ANOTHER  MISSION. 

DO  4000  J1-NJ*N0E 

IF( Jl.EQ.NOE)  GO  TO  1050 

NX»INT(ABS(E(J1*2*K))) 

NT»INTtF(NX,2,K)/100. ) 

IF( AMOD( F ( NX*  2*  K)*100. ) .NE . 0. )  NT-NT+1 
IF(E(J1*2*K).LT.0.)  GO  TO  3500 
NCC-NCC+NT 


PERHAPS  THERE  WILL  STILL  BE  ENOUGH  TRUCKS. 
IF(NCC+NTRCK.LE.P<5»K))  GO  TO  4000 


CHECK  THE  TIME  GAP  TO  SEE  IF  THERE  IS  ENDUGH  TIME  TO  PERFORM 
THE  MISSION  AND  CHECK  TO  ENSURE  THAT  THE  TIME  GAP  HASN'T 
BEEN  FILLEO  WITH  OTHER  POSTPONED  MISSIONS. 


1050  THNXT-E(Jl»l»K> 

IFITMNXT-TMLST.LT. F(N*1*K>>  GO  TO  5000 
I F < IB . EQ.O)  GO  TO  3000 
DO  2000  J2-1* IB 

IF(BU2*1*K).LE.TMLST  ,ANO.  B(J2*2*K).GE«TMNXT)  GO  TO  5000 

IF(B(J2*1»K).GE.TMNXT)  GO  TO  3000 

IF<BU2»2*K);LE*TMLST)  GO  TO  2000 

IF (B( J2* 1»K)-THLST.GE .FIN* 1*K  ) )  GO  TO  3000 

TML  ST-B  N 2*  2*  K) 

IF<TMNXT-TMLST.LT.F<N*1*K)>  GO  TO  5000 


OR/ 18/80 

09.54. 

**» 

PSTPN 

59 

PSTPN 

'  60 

PSTPN 

61 

PSTPN 

62 

— 

PSTPN 

63 

PSTPN 

64 

— 

PSTPN 

65 

PSTPN 

66 

PSTPN 

67 

PSTPN 

68 

PSTPN 

69 

PSTPN 

70 

PSTPN 

71 

PSTPN 

72 

PSTPN 

73 

PSTPN 

74 

— 

PSTPN 

75 

PSTPN 

76 

— 

PSTPN 

77 

PSTPN 

78 

— 

PSTPN 

79 

PSTPN 

80 

— 

PSTPN 

81 

PSTPN3 

1 

PSTPN 

83 

PSTPN 

84 

PSTPN 

85 

PSTPN 

86 

PSTPN 

87 

PSTPN 

88 

— 

PSTPN 

89 

PSTPN 

90 

PSTPN 

91 

PSTPN 

92 

PSTPN 

93 

PSTPN 

94 

PSTPN 

95 

PSTPN 

96 

— 

PSTPN 

97 

PSTPN 

98 

— 

PSTPN 

99 

PSTPN 

100 

PSTPN 

101 

PSTPN 

102 

PSTPN 

103 

PSTPN 

104 

- 

PSTPN 

105 

PSTPN 

106 

PSTPN 

107 

PSTPN 

108 

PSTPN 

109 

PSTPN 

110 

PSTPN 

111 

PSTPN 

112 

PSTPN 

113 

PSTPN 

114 

PSTPN 

115 

29 
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C  —  —————— —————— ———————————————— —————— —————— ———————— ——————— 

C  IS  IT  TOO  LATE. 

IF(TML$T.GT.CTIME*DELAY)  GO  TO  6000 
2000  CONTINUE 

C  THERE  IS  ENOUGH  TIME  AND  THERE  ARE  ENOUGH  TRUCKS  FOR  THE 

MISSION  TO  BE  COMPLETED. 

RESET  THE  MISSION  DISPATCH  AND  RETURN  TIMES. 


3000  18-18*1 

DT ( 1»  K) ■ FLOAT (IB) 
DT(2,K)-pT(2,K)*<TMLST-E<I> 1>K)1 
DT  ( 3,  K)-DTt3,K)  4-FLOAT  (NTRCK) 
DT(4>K1-DT(4,K1*B5 
DT(5,K)-DT(5,K)*B6 
E(I,1,K)-THLST 
DO  3200  I7-NXT*  NOE 
IF (-E ( I7» 2»K) .EQ.N)  GO  TO  3300 
3200  CONTINUE 
PETURN 

3300  E(I7»1»K)-THL$T*F(N»1.»K) 
B(IB/1/KI»E(I/1/K) 
B(IB,2»K)-E(I7,1,K) 
IZ3-M0CC+NTRCK 
NZ3«MAX0(NZ3,IZ31 
IRT-1 

IF(A(N,8,K).GE.26.1  A(N,7,KJ— 1. 
RETURN 

3500  NCC-NCC-NT 
4000  CONTINUE 
5000  CONTINUE 

6000  IF(A(N,7,K).LE.O. )  RETURN 
E(I,1>K)-E(I,1,K1*DELAY 
DO  6100  I7-NXT*  NOE 
IF<-E(I7#2,K) .EQ.N)  GO  TO  6200 
6100  CONTINUE 
RETURN 

6200  E(I7»1»K)-E(I#1.»K)*F(N»1#K) 
RETURN 
END 


PSTPN 

116 

PSTPN 

117 

PSTPN 

118 

PSTPN3 

2 

PSTPN 

120 

PSTPN 

121 

PSTPN 

122 

PSTPN 

123 

PSTPN 

124 

PSTPN 

125 

PSTPN! 

3 

PSTPN1 

4 

PSTPN1 

5 

PSTPN1 

6 

PSTPN1 

7 

PSTPN1 

8 

PSTPN1 

9 

PSTPN 

127 

PSTPN 

128 

PSTPN 

129 

PSTPN 

130 

PSTPN 

131 

PSTPN 

133 

PSTPN 

134 

PSTPN 

135 

PSTPN 

136 

PSTPN 

137 

PSTPN 

138 

PSTPN 

139 

PSTPN 

140 

PSTPN 

141 

PSTPN 

142 

PSTPN3 

3 

PSTPN3 

4 

PSTPN3 

5 

PSTPN3 

6 

PSTPN3 

7 

PSTPN3 

8 

PSTPN3 

9 

PSTPN 

143 

PSTPN 

144 
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***********************************************************************  SEQ  1 

SEQ  2 

*  +  **  SUBROUTINE  SEQ  SEQ  3 

SORT  DISPATCH  TIMES  FOR  POSTPONED  MISSIONS.  SEQ  4 

SEQ  5 


C 

c 


***********************************************************************  SEQ  6 


SUBROUTINE  SEQ(K) 

SEQ 

7 

DIMENSION  B( 500# Zt 25 ) 

SEQ 

8 

LEVEL  Zt  B 

SEQ 

9 

COMMON  /  DDD  /  ITRNS* TRTM# DFTH, NCE» IB,NZ3 

SEQ 

10 

COMMON  /' EEE  /  B 

SEQ 

11 

SEQ 

12 

SEQ 

13 

IF(IB.LE.l)  RETURN 

SEQ 

14 

JM-IB 

SEQ 

15 

IM» JM-1 

SEQ 

16 

DO  200  I»  1» IM 

SEQ 

17 

11*1+1 

SEQ 

18 

DO  100  J*I1,JM 

SEQ 

19 

IF(B(I»1»K).LT.B(J»1»K))  CO  TO  100 

SEQ 

20 

TEMP*B ( I*1;K) 

SEQ 

21 

BCi#l*K)«BCJ#  K ) 

SEQ 

22 

B(J*1,K)«TEMP 

SEQ 

23 

100  CONTINUE 

SEQ 

24 

200  CONTINUE 

SEQ 

25 

RETURN  ■  ' 

SEQ 

26 

END  “ 

SEQ 

27 

31 


STRMSS  ?6/76  QPT-1  ROUND**-*/ 

FTN  A. 

8*508  09/18/80 

09. 5A 

C * **** * **** *  4<  *** * **** ********** ******************  ****************  ******* 

STRMSS 

1 

c 

STRMSS 

'  2 

c**** 

SUBROUTINE  STRMSS  ” 

STRMSS 

3 

c 

STORE/  FOR  REPORTING  LATER/  THE  INFO  ON 

PARTIAL 

MISSIONS 

STRMSS 

A 

c 

SKIPPED  OP.  TRANSFERRED.  EACH  IS  THE  REMAINDER  OF  A  SPLIT 

STRMSS 

5 

c 

MISSION. r 

STRMSS 

6 

c 

STRMSS l 

1 

<;**** ********************************************************** ********* 

STRMSS 

7 

SUBROUTINE  STRHSS(K) 

STRMSS 

8 

DIMENSION  A(500/O/25 ),  0(6/5/25)/  PU3/25) 

STRMSS2 

1 

LEVEL  2/  A 

STRMSS1 

3 

INTEGER  P 

STRMSS2 

2 

COMMON  /  /  NPOOLS/NY/ B5/B6/NTRCK 

STRMSS1 

A 

COMMON  / AAA  /  A 

STRMSS 1 

5 

COMMON  /  000  /  a 

STRMSS 

13 

COMMON  /  PPP  /  P 

STRMSS2 

3 

c 

STRMSS 

1A 

c 

STRMSS 

15 

M-NY 

STRMSS 1 

6 

I F ( A ( N>  8/ K ) , L T , 26 . )  RETURN 

STRMSS1 

7 

IF(A(N/7/K).LE.O. )  GO  TO  50 

STRMSS2 

A 

T7*A(N/7/K)-100.*FL  OAT (INT(A(N/7/K)/100.) ) 

STRMSS2 

5 

DO  25  KK-l/NPOOLS 

STRMSS2 

6 

IF(INT(T7).EQ.P{1/KK))  GO  TO  35 

STRMSS2 

7 

25 

CONTINUE 

STRMSS2 

8 

RETURN 

STRMSS2 

9 

> 

1 

II 

1  u> 

1  ^ 

IF(KK.LE.K)  A(N/7/K)*0. 

STRMSS2 

CTPMC C 

10 

C 

STORE  THE  MISSION  INFO. 

o I Kn j  j 

STRMSS 

£  w 

23 

c 

Ll-1  —  ORIGINAL  MISSION  TO  BE  TRANSFERRED/ 

STRMSS 

2A 

c 

H-2  —  ORIGINAL  MISSION  COMPLETED 

AFTER  DEFERMENT/ 

STRMSS 1 

e 

c 

Ll-3  —  ORIGINAL  MISSION  TO  BE  SKIPPED/ 

STRMSS 1 

9 

c 

Ll-A  —  ADDITIONAL  MISSION  TO  BE  TRANSFERRED/ 

STRMSS1 

10 

c 

H-5  —  ADDITIONAL  MISSION  COMPLETED  AFTER 

DEFERMENT/ 

STRMSS1 

li 

c 

r  _  ___ 

Ll-6  —  ADDITIONAL  MISSION  TO  BE  SKIPPED. 

STRMSS! 

CTD  MC ^ 

12 
0  P 

50 

IF(A(N/8/K).EQ.26.)  GO  TO  100 

5TRMSS2 

C  0 

li 

Ll-1 

STRMSS 

30 

IF(A(N»7,K).LT.O. )  Ll-2 

STRMSS1 

1A 

IF(A(N/7,K).EQ.O.)  Ll-3 

STRMSS1 

15 

GO  TO  200 

STRMSS 

32 

100 

LI- A 

STRNSS1 

16 

IF(A(N/7/K».LT.O. )  Ll-5 

STRMSS 1 

17 

IF(A(N/7/K).EQ.O.)  Ll-6 

STRNSS1 

18 

200 

0(Ll/l/K)-n(Ll/l/K)*l. 

STRMSS 

35 

0(Ll/2/K)-0(Ll/2/K)*B5 

STRMSS 

36 

0(L1/A,K)-0(L1/A/K)*B6 

STRMSS 

37 

RETURN 

STRMSS 

38 

END 

STRMSS 

39 

non  non  o  n  o  ooo  oo  o  o  o  n  o  o  o  o 
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4 ***************4* ****************************** ******•**«*«•**«•« ««*f 4 
****  SUBROUTINE  TRNSFR 

STORE,  FOR  TRANSFER  LATER,  INFO  ON  MISSIONS  TO  BE  TAKEN  BY 

OTHER  POOLS.  INCLUDES  WHOLE  HISSIONS  AND  REMAINDERS  OF 
l  .  SPLIT  MISSIONS.  . 

4 **4 4*4***4* 4 *4*****4*****4**4*4****** ************************ ********* 

SUBROUTINE  TRNSFR (K) 

DIMENSION  T(100,9,25),  A(500,9,25),  E(I000,2,25),  P(15,25) 
DIMENSION  0(500,9),  F(500,2,25) 

INTEGER  P 

LEVEL, 2,  T»A,F, E,D 

COMMON  /  /  NPOOLS, NY, B5,B6,NTRCK 

COMMON  /  AAA  /  A 

COMMON  /  BBB  /  D, E,F, T 

COMMON  /  PPP  /  P 

COMMON  /  MCOL/  HCT,  MCA,  HCG 

10  FORMAT! 1H0, • IMPROPER  MISSION  DISPOSITION  CODE,*, 13, •,  IN  POOL  NO. 
*•,13) 


IS  MISSION  TRANSFER  PERMITTED. 

IF(A(N,7,K).LE.O. )  RETURN 

T7- A( N»  7,  K) — 100.*FLQAT( INT( A( N»  7, K) /100. > ) 

DO  25  KK-1, NPOOLS 

IF(INT(T7).EQ.P(1,KK))  GO  TO  35 

CONTINUE 

RETURN 

IF(KK.LE.K)  RETURN 


INCREASE  THE  COUNTER  FOR  NUMBER  OF  MISSIONS  TO  BE  TRANSFERRED 


P (11, K) *P( 11, K) *1 
IP- P( 11, K) 

STORE  THE  MISSION  INFO. 


DO  100  J»1,MCA 
D(IP, J)-A(N*J,K) 

CONTINUE 

CHAN6E  THE  MISSION  DISPOSITION  CODE. 


I8-INT! A(N,8,KJ ) 

IF( I8.GT.25)  GO  TO  300 
I8N-6 

I F ( I8.EQ.7)  GO  TO  200 
I8N-8 

IF( I8.EQ.9)  GO  TO  200 
I8N-21 

IF( 18 • EQ* 15)  GO  TO  200 
I6N-23 

IF(I8.E0il7)  GO  TO  200 


TRNSFR 

TRNSFR 

TRNSFR 

TRNSFR 

TPNSFR 

TRNSFR 

TRNSFR1 

TPNSFR 

TRNSFR 

TRNSFR1 

TRNSFR1 

TRNSFR 

TRNSFR 

TRNSFR1 

TRNSFR1 

TRNSFR1 

TRNSFR 

TRNSFR 

TRNSFR 

TRNSFR 

TRNSFR 

TRNSFR 

TRNSFR1 

TRNSFR 

TRNSFR 

TRNSFR 

TRNSFR1 

TRNSFR2 

TRNSFR2 

TRNSFR2 

TRNSFR2 

TRNSFR2 

TRNSFR2 


-  TRNSFR 

27 

ED.  TRNSFR 

28 

-  TRNSFR 

29 

TRNSFR 

30 

TRNSFR 

31 

-  TRNSFR 

32 

TRNSFR 

33 

-  TRNSFR 

34 

TRNSFR 

35 

TRNSFR1 

9 

TRNSFR 

37 

-  TRNSFR 

38 

TRNSFR 

39 

-  TRNSFR 

40 

TRNSFR1 

10 

TRNSFR 

42 

TRNSFR 

43 

TRNSFR 

44 

TRNSFR 

45 

TRNSFR 

46 

TRNSFR 

47 

TRNSFR 

48 

TRNSFR 

49 

TRNSFR 

50 

33 
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WRITE ( 6, 10)  1 8* K 

TRNSFR 

51 

STOP 

TPNSFR 

52 

200 

A(N,8,K)*FLOAT(I8N) 

TRNSFR1 

11 

GO  TO  400 

TRNSFR 

54 

* 

_ TDM  CCD 

R  C 

*“ 

'  1  1  1  "  11  pl 

** 

FOR  THE  REMAINDERS  OF  SPLIT  MISSIONS 

STORE  REMAINING  CARGO 

TRNSFR 

56 

AND  CHANGE  MISSION  DISPOSITION 

CODE. 

TPNSFR 

...  TDM  CC  D 

57 

lift 

300 

D( IP*  5) *85 

TRNSFR 

59 

D ( IP, 6) *86 

TRNSFR 

60 

I8N-4 

TRNSFR 

61 

IF(I8.EQ.27)  GO  TO  -400 

TRNSFR 

62 

I8N-19 

TRNSFR 

63 

IF(I8.EQ.26)  GO  TO  400 

TRNSFR 

64 

WRITE ( 6, 10)  18, K 

TRNSFR 

65 

STOP 

TRNSFR 

66 

O 

o 

D(IP»8)=FL0AT(I8N) 

TRNSFR 

67 

RETURN 

TRNSFR 

68 

END 

TRNSFR 

69 

34 
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*********************************************************************** 

****  SUBROUTINE  MVMSSN 

EXECUTE  THE  TRANSFER  OF  MISSIONS  TO  OTHER  POOLS. 

*********************************************************************** 

SUBROUTINE  MVMSSN(K) 

DIMENSION  T(100*9,25)*  A(500*9*25),  E(1000*2,25)»  P(15*25) 
DIMENSION  DC  500*9)*  FC500»2*25) 

INTEGER  P 

LEVEL  2 *  T*A»F*E*D 

COMMON  /  /  NPC10LS*  NY*  B5»B6»NTRCK 

COMMON  /  AAA  /  A 

COMMON  /  BBB  /  D,E*F»T 

COMMON  /  PPP  /  P 

COMMON  /  MCOL /  MCT*  MCA*  MCG 

COMMON  /  MAX  /  MMISS* MLINK 

10  FORMAT(lHl) 

11  F0RMATC1H  *125(1HX)) 

14  FORMAT ( 1H  *  *  WARNING——  MISSION  OVERFLOW  IN  POOL •* I3*10X* • TRUNCATED 
*  AT  «,I4*»  MISSIONS*) 


NTRANS»Ptll*K) 
IF(NTRANS.EQ.O)  RETURN 
IFIK.GE.NPOOLS)  RETURN 
KP-K+1 

DO  500  KK-KP* NPOQLS 
DO  400  NN-1*NTRANS 


FIND  THE  POOL  TO  WHICH  THIS  MISSION  IS  TO  BE  TRANSFERRED. 


T?-D(NN*7)-100.*FLOAT(INT(D(NN*7)/100. )) 
IFCINT(T7).NE.P(1*KK) )  GO  TO  400 
IF(P(7,KK).LT. MMISS)  GO  TO  200 
WRITE (6*10) 

WRITE(6*11) 

WRITE! 6*14)  KK, P(7»KK) 

WRITE (6* 11) 

GO  TO  500 

200  P (7*KK) -Pt?»  KK) *1 ' 

I7-P(7*KK) 


ADD  THE  INFO  FOR  THIS  MISSION  TO  THAT  FOR  THE  OTHER  MISSIONS 
ASSIGNED  TO  THE  POOL  * 


DO  300  J-l*  MCA 
ACI7, J,KK)»D(NN*J ) 

300  CONTINUE 

A (17, 7* KK)*FL OATC INTCDC NN,7 )/ 100, )) 

MISSION  WILL  NOT  BE  TRANSFERRED  TO  YET  ANOTHER  POOL. 
(THIS  OVERRIDES  THE  PREVIOUS  ASSIGNMENT). 


A(I7,7*KK)»0. 
400  CONTINUE 
500  CONTINUE 


MVMSSN 

1 

HVMSSN 

2 

MVMSSN 

3 

MVMSSN 

4 

MVMSSN 1 

1 

MVMSSN 

5 

MVMSSN 

6 

MVMSSN1 

2 

MVMSSN1 

3 

MVMSSN 

9 

MVMSSN 

10 

MVMSSN1 

4 

MVMSSN1 

5 

MVMSSN1 

6 

MVMSSN 

14 

MVMSSN 

15 

MVMSSN 

16 

MVMSSN 

17 

MVMSSN 

18 

MVMSSN 

19 

MVMSSN 

20 

MVMSSN 

21 

MVMSSN 

22 

MVMSSN 

23 

MVMSSN 

24 

MVMSSN2 

1 

MVMSSN3 

1 

MVMSSN2 

3 

MVMSSN 

28 

MVMSSN1 

7 

MVMSSN1 

8 

MVMSSNl 

9 

MVMSSN 

29 

MVMSSN2 

4 

MVMSSN 

31 

MVMSSN 

32 

MVMSSN 

33 

MVMSSN 

34 

MVMSSN 

35 

MVMSSN 

36 

MVMSSN 

37 

MVMSSN 

38 

MVMSSNl 

11 

MVMSSNl 

12 

MVMSSNl 

13 

MVMSSNl 

14 

MVMSSN 

39 

MVMSSN 

40 

MVMSSN 

41 

MVMSSN 

42 

MVMSSN 

43 

MVMSSN 

44 

MVMSSN 

45 

MVMSSN 

46 

MVMSSN 

47 

MVMSSN 

48 

MVMSSN 

49 

35 
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RETURN 

MVHSSN 

50 

END 

HVMSSN 

51 

36 


.  opn 


C  HIJT1  76/76  OPT-1  ROUND-*-*/ 
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O* **************************************************** *****************  0UT1 
C  0IJT1 

C***4  SUBROUTINE  0UT1  0UT1 

PRINT  OUT  INPUT  DATA  FOR  THE  POOL.  OUTl 

;  OUTl 

* ** *************************************  *******************************  OUTl 
•:.!  SUBROUTINE  OUTl(K)  OUTl 

DIMENSION  T C 100# 9#  25 )»  A<500#9#25)#  E (1000. 2,25),  P!15,25)  DEFER4 

DIMENSION  D!500#9)#  F!500#2#25)  DEFER* 

INTEGER  P  OUTl 


•1 . 

LEVEL  2#  T# A# F» E# D  * . 

OUTl 

»•  . . 

COMMON  /  AAA  /  A  •  . 

DEFER* 

»  ..  • 

COMMON  /  BBB  /  D#E#F»T 

DEFER4 

•  T 

COMMON  /  MCOL  /  MCT#  MCA#  MCG 

OUTl 

*,  , 

COMMON  .7  PPP  /  P 

OUTl 

5 

FORMATUH  ) 

OUTl 

*  10 

F0RMATUH1) 

OUTl 

20 

FORMAT ! 1H  »125I1HX)) 

OUTl 

100 

FORMATUH  #125!1H-))  < 

OUTl 

110  FORMAT! 1H0) 

C ' 

C- 

*•••  WRITE! 6# 10) 

WRITE (6#20) 

WRITE f 6# 30)  P!1#K) 

30  F0RMAT!1H0,10X# 'POOL  NUMBER  ‘  '#15) 

WRITE!6#40)  P !2#K) 

40  FORMAT ( 1H  #10X# 'VEHICLE  NUMBER  *#I5) 
WRITE ! 6#  50)  P!3,KJ 

50  FORMAT! 1H  # 10X# » VEH.  PAY. ISTX10) ',15) 
WRITE !6»60)  P!4,K) 

60  FORMATUH  #10X#'VEH.  CUBIC  CAP.  ’#15) 
WRITE! 6» 70)  P!5#K) 

70  F0RMAT!1H  »10X#»N0.  OF  VEHICLES  '#15) 
WRITE!6,80)  P!6#K) 

80  FORHAT! 1H  »10X#'NUMBER  OF  LINKS  '#15) 
WRITE!6,90)  P(7,K) 

90  FORMAT ! 1H  ,10X#'N0.  OF  MISSIONS  »#I5) 
WRITE ! 6# 100) 

WRITE { 6# 110) 

WRITEI6.U5) 

115  F0RMAT!1H0#59X, 'LINKS') 

WRITE ! 6# 116) 

116  FORMATUH  »59X#* - •) 

WRITE!6#5) 

WRITE !6# 120) 

120  FORMAT! 1H  # 20X# 'Cl  C2  C3 

*C6  C7  C8  C9' ) 

WRITE! 6# 130) . 

130  F0RMATI1H  » ' T !R#C ) ' #7X» '/'#'■ 

♦ - - - - - - - 

N»P!6#K) 

IF!N.6T.0)  GOTO  135 
WRITE ! 6# 133) 

133  F  OR  MAT { 1H0#  51 X#  '  N  0  LINKS  ASSIGNED') 

GO  TO  153 
135  DO  150  I-1»N 


C  4 


C5 


-') 


OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 

OUTl 


09.54. 


2 

3 

4 

5 

6 
7 
0 

120 

121 

11 

12 

122 

123 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 
36 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 
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Q'lTl 
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WRITE! 6#140)  I#!T(I#J»K)»J-1»HCT) 

0UT1 

58 

140 

FORMATUH  #6X**R»#I3#3X# »/« *9F10.1) 

QUT1 

59 

150 

CONTINUE 

QUT1 

60 

153 

WRITE! 6# 110) 

0UT1 

61 

WRITE!6*U0) 

0UT1 

62 

WRITE  1 6, 155) 

OUTi 

63 

155 

FORMAT! 1H0# 57 X# 'MISSIONS*) 

DEFEP4 

124 

WRITE! 6, 156) 

OUTI 

65 

156 

FORMATllH  *57X,« - ') 

DEFER4 

125 

WRITE  16#  5) 

OUTI 

67 

WRITE ! 6# 120) 

DEFER4 

126 

WRITE ! 6# 160) 

OUTI 

71 

160 

FORMAT !  IN  t '  A  IR,C )  N  7Xi  •  /  • ,  - - - - - - 

-  DEFER4 

nprpD 4 

127 

N-P  !7»K )  1 

\J  C  »  C™  “ 

OUTI 

160 

74 

IFIN.GT.O)  GO  TO  164 

OUTI 

75 

WRITE  16,163) 

OUTI 

76 

163 

FORMAT ! 1H0# 47X#  * NO  MISSIONS  ASSIGNED* ) 

OUTI 

77 

GO  TO  175 

OUTI 

78 

164 

DO  170  I-1#N 

OUTI 

79 

WRITE!6,140)  I*  !A! I, J,K), J-1,MCA) 

DEFER4 

129 

170 

CONTINUE 

OUTI 

82 

175 

WRITE !6# 110) 

OUTI 

83 

WRITE ! 6# 110) 

OUTI 

84 

WRITE ! 6*20) 

OUTI 

85 

RETURN 

OUTI 

86 

END 

OUTI 

87 

38 


o  o  r>  o  o  r> 


r  nuT2 


76/76  OPT-1  ROUND.*-*/ 


FTN  4.8*508  09/18/80 


********************** ******************************************* ******  0UT2 

0UT2 

**♦*  SUBROUTINE  0UT2  0UT2 

PRINT  HEADING  FOR  OUTPUT  FROM  SIMULATION.  0UT2 

•!  0UT2 

***********************************************************************  0UT2 
SUBROUTINE  0UT2(K)  0UT2 

DIMENSION  P! 15*25)  DEFER 

INTEGER  P  0UT2 

COMMON  /  PPP  /  P  0UT2 

C  0UT2 

C  0UT2 

WRITE ( 6# 10)  P 11#K )  0UT2 

10  FORMAT! 1H0»10X# ’OUTPUT  FOR  POOL  NO.  »*I5>  0UT2 

WRITE (6#  20)  P  (2# K  )  0UT2 

.  20  FORMAT ( 1H  ,  10X,  •  VEHICLE  NUMBE R  M5)  0UT2 

WRITE  <  6#  30 )  P!3*K)  0UT2 

30  FORMAT! 1H  t  10X# ’VEHICLE  PAYLOAD  !STX10)'»I5)  0UT2 

WRITE ( 6. 40)  P !4*K )  0UT2 

40  FORMAT! 1H  »10X, 'VEHICLE  CUBIC  CAPACITY  *,I5)  0UT2 

WRITE !6#50)  P!5*K)  0UT2 

50  FORMAT!  1H  #10X*«N0.  OF  VEHICLES  IN  P00L*»I5)  0UT2 

IF! P(  7»  K) .GT. 0)  GO  TO  100  0UT2 

WRITE  16, 60)  0UT2 

60  F OR MAT  II  HO* 20 X» ’NO  MISSIONS  ASSIGNED*)  0UT2 

100  RETURN  DEFER 

END  0UT2 


OP. 54. 


2 

3 

4 

5 

6 

7 

8 

100 

10 

11 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 
27 

101 

30 


o  r>  r>  o  r>  <-> 


3HT3 

76/76  0PT-1  ROUND**-*/  FTN  4.8*508  09/18/80 

09.54 

*********************************************************************** 

0MT3 

0UT3 

2 

3 

**** 

SUBROUTINE  DUT3 

QUT3 

4 

PRINT  MISSION  STATUS  REPORT. 

0UT3 

5 

QIJT3 

6 

*********************************************************************** 

0I1T3 

7 

SUBROUTINE  QUT3 

0UT3 

ft 

DIMENSION  G(25,5) 

DEFFR 

102 

COMMON  /  GGG  /  G 

0UT3 

10 

COMMON  /  MCOL /  MCT,MCA,MCG 

0UT3 

11 

10 

FORMAT ( 1H0) 

OUT  3 

12 

1000 

FOR  MAT(1H+,31X,F4.0,F10.1,1X,F8.1,F9.1,1X,F8.1) 

0UT3 

0UT3 

0UT3 

13 

14 

15 

WRITE (6.10) 

BLANK 

5 

WRITE(6,10) 

0UT3 

17 

WRITE (6*20) 

0UT3 

18 

20 

FORMAT ( 1H  ^'MISSION  STATUS  REPORT') 

0UT3 

19 

WRITE ( 6, 30) 

0UT3 

20 

30 

FORMAT!  1H  ,  • - —————— — - — - -- — - « ) 

0IJT3 

21 

WRITE (6,40) 

OUT  3 

22 

40 

FORMAT ( 1H0, 31X, •  NO.  S.T.  %  ST  100  CF  l  CF') 

0UT3 

23 

WRITE (6,50) 

0UT3 

24 

50 

FORMAT (1H  ,31X,  ' - - -  -  - •) 

0UT3 

25 

WRITE (6*60) 

0UT3 

26 

WRITE ( 6, 1000)  (G(1,J),J«1,MCG) 

0UT3 

27 

60 

FORMAT! 1H  ,«1)  ORIGINAL  MISSIONS  ASSIGNED  ») 

0UT3 

28 

WRITE (6,70) 

0UT3 

29 

WRITE ! 6, 1000)  (G(2#J),J»1,MCG) 

0UT3 

30 

70 

FORMAT ! IN  ,9X, 'COMPLETED  IN  FULL  •) 

0UT3 

31 

WRITE (6, 80) 

0UT3 

32 

WRITE (6, 1000)  (G(3, J),J«1,HCG) 

0UT3 

33 

80 

FORMATdH  ,9X, 'CONTRACTED  IN  FULL  «) 

0UT3 

34 

WRITE  I 6, 85} 

DEFER 

103 

WRITE ( 6, 1000)  16(4, J),J-1»MCG) 

DEFER 

104 

85 

FORMAT ( 1H  ,9X, 'DEFERRED  IN  FULL  «) 

DEFER 

105 

WRITE(6,90) 

0UT3 

35 

WRITE ( 6, 1000)  <G(5, J),J«1,MCG) 

DEFER 

106 

90 

FORMAT ( 1H  ,9X, 'SKIPPED  IN  FULL  ») 

0UT3 

37 

WRITE ( 6, 100) 

0UT3 

38 

WRITE(6,1000)  (G(6,J),J«1,HCG) 

DEFER 

107 

100 

FORMAT ( 1H  » 9X, '  COMPLETED  IN  PART  «) 

0UT3 

40 

WRITE ! 6, 110) 

0UT3 

41 

WRITE ( 6, 1000 )  (G(7, J),J-1,MCG) 

DEFER 

108 

110 

FORMATUH  ,9X, '  CONTRACTED  IN  PART  ') 

0UT3 

43 

WRITE ( 6, 115) 

DEFER 

109 

WRITE ( bt 1000 )  (6(8,  J),J-1,MCG) 

DEFER 

110 

115 

FORMAT ( 1H  , 9X, •  DEFERRED  IN  PART  ') 

DEFER 

111 

WRITE ( 6, 120) 

0UT3 

44 

WRITEI6, 1000)  (G(9, J),J-1,HCG) 

DEFER 

112 

120 

FORMATdH  ,9X,  •  SKIPPED  IN  PART  •) 

0UT3 

46 

WRITE ( 6, 1 30) 

0UT3 

47 

WRITE ( 6, 1000) (G(10, J),J«1,HCG ) 

DEFER 

113 

130 

FORMAT ( 1H0» • 2 )  ADDITIONAL  MISSIONS  ASSIGNED') 

0UT3 

49 

WRITE (6, 140) 

0UT3 

50 

WRITE ( 6, 1000) (G(11,J),J-1,MCG) 

DEFER 

114 

140 

FORMATdH-  ,9X»'  FRACTIONAL  MISSIONS  ') 

0UT3 

52 

40 


C  TJT3  76/76  OPT-1  ROUND-*-*/ 


WRITE (6, 150) 

WRITE Ibt 1000) )G(12»J);J«1;MCG) 

150  FORMAT <  1H  ;9X,».  COMPLETED 
WRITE ) 6;155 ) 

WRITE) 6» 1000) (G(13»J),J-1»MCG) 

155  FORMATdU  ;9X;»  DEFERRED 
WRITE ( 6# 160) 

WRITE (6, 1000) (G)14;J);J«1;MCG) 

160  FORMAT ( 1H  , 9X;»  SKIPPED 
WRITE ( bt 170) 

WRITE <6, 1000) (G(15»J)>J-1#MCG) 

170  FORMAT) 1H  >9X;‘WH0LE  MISSIONS 
WRITE ) 6» 160) 

WRITE ) 6; 1000) ( G ( 16; J ) ; J-l; MCG ) 

160  FORMAT ) 1H  ;9X;'  COMPLETED  IN  FULL 
WRITE  <  6» 185 ) 

WRITE ) 6; 1000) )G)17; J);J-1;MCG) 

105  FORMAT ( 1H  ;9X;'  CONTRACTED  IN  FULL 
WRITE )6; 187) 

WRITE)6,1000))G(18;J);J«1;HCG) 

187  F0RMAT)1H  ;  9X; •  DEFERRED  IN  FULL 
WRITE  <  6; 190) 

WRITE ) 6; 1000) )G)19; J);J-1;MCG) 

190  FORMAT ) 1H  ;9X;'  SKIPPED  IN  FULL 
WRITE ) 6»  200) 

WRITE) 6» 1000) )G<20, J),J«1;MCG) 

200  FORMAT ) 1H  ,9X;'  COMPLETED  IN  PART 
WRITE ) 6; 210) 

WRITE  1 6; 1000) (G)21; J);J-1;MCG) 

210  F0RMATI1H  ,9X;»  CONTRACTED  IN  PART 
WRITE )6;215) 

WRITE ) 6; 1000) )G(22, J),J-1;MCG) 

215  FORMAT) 1H  ,9X;'  DEFERRED  IN  PART 
WRITE) 6, 220) 

WRITE ) 6; 1000 ) )G(23,J);J-1;MCG) 

220  FORHAT ) 1H  ; 9X;  •  SKIPPED  IN  PART 
RETURN 
END 


FTN  A. 8*506 


09/18/60 

09.54, 

0UT3 

53 

DEFER 

115 

0UT3 

55 

DEFER 

116 

DEFER 

117 

DEFER 

118 

OUT  3 

56 

DEFER 

119 

0UT3 

58 

0UT3 

59 

DEFER 

120 

0UT3 

61 

0UT3 

62 

DEFER 

121 

0UT3 

64 

QUT3 

65 

DEFER 

122 

0UT3 

67 

DEFER 

123 

DEFER 

124 

DEFER 

125 

0UT3 

68 

DEFER 

126 

0UT3 

70 

OUT  3 

71 

DEFER 

127 

0UT3 

73 

0UT3 

74 

DEFER 

128 

0UT3 

76 

DEFER 

129 

DEFER 

130 

DEFER 

131 

0UT3 

77 

DEFER 

132 

0UT3 

79 

01IT3 

60 

0UT3 

81 

41 


r>  o  o 


DUT4 

76/76  OPT «1  ROUND"*-*/  FTN  4.8*508 

09/18/80 

09.54 

***********************************************  ********  ***  ******  ****** 

0UT4 

2 

0UT4 

3 

**** 

SUBROUTINE  0UT4 

0UT4 

4 

PRINT  VEHICLE  STATUS  REPORT. 

OUT  4 

5 

0UT4 

6 

*********************************************************************** 

0UT4 

7 

SUBROUTINE  0UT4(K) 

0UT4 

8 

DIMENSION  T!100,9,25),  A!500#9,25),  E <1000* Z, 25 ) »  P(15»25) 

DEFER4 

130 

DIMENSION  D!500»9),  F!500,2,25),  Q!12,25) 

DEFER4 

131 

INTEGER  9 

0UT4 

11 

LEVEL  2,  T,A,F,E,D 

0UT4 

12 

COMMON  /  AAA  /  A 

DEFER4 

132 

COMMON  /  8BB  /  D, E,F,T 

DEFER4 

133 

COMMON  /  PPP  /  P 

0UT4 

14 

COMMON  /  QQQ  /  Q 

OUT  4 

15 

5 

FORMAT ( 1H  ) 

0UT4 

16 

10 

FORMAT(IHO) 

0UT4 

17 

1000 

FORMAT ( 1H+* 23X#  FlO.l* 8X,F6. 1, 7X,F  8.2 ) 

0UT4 

18 

0UT4 

19 

0UT4 

20 

WRITE !6» 10) 

BLANK 

6 

WRITE ! 6; 10) 

BLANK 

7 

WRITE ( 6/ 101 

0UT4 

22 

WRITE! 6/ 20) 

0UT4 

23 

20 

FORMAT ( 1H  ,'V  E  H  I  C  L  E  STATUS  REPORT') 

0UT4 

24 

WRITE (6/30) 

0UT4 

25 

30 

0UT4 

26 

WRITE 1 6» 40)  P(8,K) 

0UT4 

27 

40 

FORMATdH  ,'NO.  OF  VEHICLES  USED  »,I3) 

OUT  4 

28 

IF  ( P< 8»  K)  ,GT'» 0 )  GO  TO  60 

0UT4 

29 

WRITE ( 6»  5 ) 

0UT4 

30 

WRITE 1 6»  50) 

0UT4 

31 

50 

FORMAT! 1H  #  'NO  MISSIONS  PERFORMED') 

0UT4 

32 

WRITE (6»  5 ) 

0UT4 

33 

GO  TO  215 

0UT4 

34 

60 

WRITE !  6>  70)  Q17.K) 

0UT4 

35 

TO 

FORMAT ! 1H  t'UNUSED  CAPACITY  ! X )  »,F4.0) 

0UT4 

36 

WRITE ! 6. 80)  Q18,K) 

0UT4 

37 

80 

FORMATUH  »'VEHICLE  CUBIC  EFFICIENCY  !X)  *»F4.0) 

0UT4 

38 

WRITE  ( t>*  90)  Q!9jK) 

0UT4 

39 

<»0 

FORMAT ! 1H  » ' VEHICLE  PAYLOAD  EFF.  iZ)  »»F4.0) 

0UT4 

40 

WRITE ! 6»  5 ) 

0UT4 

41 

WRITE  <  6# 10) 

BLANK 

8 

WRITE i 6» 100) 

0UT4 

42 

100 

FORMAT ( 1H  t 'CONSIDERING  ONLY  THE  VEHICLES  USED  AND  MISSIONS 

PERFDR 

0UT4 

43 

♦MED-' 1 

0UT4 

44 

WRITE { 6*  5 ) 

0UT4 

45 

WRITE ( 6# 110) 

0UT4 

46 

110 

FORMAT ! 1H  >25X,«T0T.  VFH-HRS  PERCENT  AVER/MISSION') 

OUT  4 

47 

WRITE(6»120) 

0UT4 

48 

120 

FORMATllH  ,25X,  -  -  - •) 

0UT4 

49 

S« FLOAT !P!8»K)*!P!10>K)-P!9»K))) 

0UT4 

50 

U-0. 

0UT4 

51 

N7«P!7,K) 

0UT4 

52 

Dn  130  I"1#N7 

0UT4 

53 

IF!F!If2»K).E0'.0.)  GO  TO  130 

0UT4 

54 

U«U*1. 

0UT4 

55 

42 


iuta  76/76  opt»i  round®*-*/ 


130  CONTINUE 
U=60.*U 

v-o. 

DO  1A 0  1*1.  6 
V*V*Q(I»K) 

1 40  CONTINUE 

Tl«0(l,K)/60. 

T2*100.*Q(1»K)/S 
T3*Q(1»KJ/U 
WRITE (6*150) 

WRITR6.1000)  T1.T2.T3 
150  EORMATUH •  .  ‘TRAVEL  •) 

Tl»Q(2»K)/60. 

T2*100.*X2.K)/S 
T3*Q(2,K)/U 
WRITE<6, 160) 

WRITE ( 6. 1000)  T1.T2.T3 
160  FORMATUH  . 'DELAY  (DEPT.  POINT)  •) 
Tl*Q(3.K)/60. 

T2*100.*Q(3»K)/$ 

T3*Q(3.K)/U 
WRITE ( 6. 170) 

WRITE < 6. 1000)  T1.T2.T3 
170  FOR  HAT  UH  .'DELAY  (INTERM.  POINT)') 
Tl«Q(A,K)/60. 

T2-100.*Q(4.K)/S 
T3*Q(A,K)/U 
WRITE ( 6*180) 

WRITE (6, 1000)  Tl.  T2.T3 
180  FORMATUH. 'DEL  AY'  (RTN  POINT)  ') 
Tl»0(5,K)/60. 

T2«100,*Q(5,K)/S 
T3-Q(5.K)/U 
WRITE( 6. 190) 

WRITE ( 6# 1000)  Tl.  T2.  T3 
190  FORMAT ( 1H  .'LOADING  *) 

Tl-Q(6.K)/60. 

T2*100«*Q(6. K)/S 
T3-Q(6.K)/U 
WRITE ( 6. 200) 

WRITE(6.1000)  T1.T2.T3 
200  FORMAT! 1H  .  'UNLOADING  •) 

Tl»(S-V)/60. 

T2»100.MS-V)/S 

T3«tS-V)/U 

WRITE(6.210) 

WRITE (6. 1000)  T1.T2.T3 
210  FORMATUH  .'IDLE  ») 

215  WRITE(6.5) 

T1*FL0AT( P(IO.K)— P(9, K) )/60. 

WRITE ( 6. 220)  T1 

220  FORMAT ( l HO. *  HOURS  FROM  FIRST  DEPARTURE 
*  F0.2) 

RETURN 

END 


FTN  A, 8*508  09/18/80  09. 5A. 


OUTA  56 
OUTA  57 
OUTA  58 
OUTA  59 
OUTA  60 
OUTA  61 
OUTA  62 
OUTA  63 
OUTA  6 A 
OUTA  65 
OUTA  66 
OUTA  67 
OUTA  68 
OUTA  69 
OUTA  70 
OUTA  71 
OUTA  72 
OUTA  73 
OUTA  7A 
OUTA  75 
OUTA  76 
OUTA  77 
OUTA  78 
OUTA  79 
OUTA  80 
OUTA  81 
OUTA  82 
OUTA  83 
OUTA  8A 
OUTA  85 
OUTA  86 
OUTA  87 
OUTA  88 
OUTA  89 
OUTA  90 
OUTA  91 
OUTA  92 
OUTA  93 
OUTA  9A 
OUTA  95 
OUTA  96 
OUTA  97 
OUTA  98 
OUTA  99 
OUTA  100 
OUTA  101 
OUTA  102 
OUTA  103 
OUTA  10A 
OUTA  105 
OUTA  106 

TO  LAST  DESIREO  ARRIVAL*  '.  BLANK  9 

BLANK  10 
OUTA  109 
OUTA  110 
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o  o  r*>  o  r> 


E  DUT5 


76/76  DPT-1  ROUND ■+-*/ 


FTN  4. 8+506 


09/18/80  09.54 


***********************************************************************  nUT5 

0UT5 

****  SUBROUTINE  0UT5  0UT5 

PRINT  STATISTICS  ON  DEFERRED  MISSIONS.  0UT5 

0UT5 

c ***************** ******************************************************  out 5 

SUBROUTINE  0UT5(K>  0UT5 

DIMENSION  DT!6,25)  0UT5 

COMMON  /  DDD  /  ITRNS,  TRTM,DFTM» NC E» I8»NZE,DT  0UT5 

5  FORMAT! 1H0)  BLANK 

10  FORMAT(lHl)  0UT5 

1000  FORMAT { 1H+,  25X, F8.1, 8X, F8.2)  0UT5 

C  0UT5 

C  0UT5 

WRITE ( 6, 10)  0UT5 

WRITE (6,5)  8LANK 

WRITE! 6, 5)  BLANK 

WRITE (6,20)  0UT5 

20  FORMAT ! 1H  , 'DEFERRED  MISSIONS  REPORT*)  0UT5 

WRI TE ( 6,25 )  0UT5 

25  FORMAT!  1H  ,  « - •)  0UT5 

WRITE (6, 30)  0UT5 

30  FORMAT ! 1H0, 26  Xi *  TOTAL  AVG/MISSION* )  0UT5 

WRITE (6,35)  0UT5 

35  FORMAT!  1H  ,26X,» -  - *)  0UT5 

T1«DT ( 1, K )  *  0UT5 

IF (Tl.LE.O. ) ' GO  TO  900  0UT5 

WP.ITE(6,100)  0UT5 

WRITE (6,1000)  T1  0UT5 

100  FORMAT! 1H  ,* NO.  OF  MISSIONS  •)  0UT5 

Tl>DT(2,K)/60.  0UT5 

T2-T1/DT!1,K)  OUTS 

WRITE ( 6,200)  0UT5 

WRITE (6, 1000)  T1»T2  0UT5 

200  FORMATUH  ,»NO.,OF  HOURS  DELAYED  *)  0UT5 

T1»DT(3,K)  0UT5 

T2«Tl/DT!l,K)  0UT5 

WRITE(6, 300)  0UT5 

WRITE ! 6, 1000 )  T1,T2  0UT5 

300  FORMAT! 1H  ,!N0.  OF  TRUCKS  •)  0UT5 

T1«DT!4,K)/10.  BLANK 

T2*T1/DT (1, K)  0UT5 

WRITE ( 6, 400)  OUTS 

WRITE (6, 1000)  T1,T2  0UT5 

400  FORMAT ( 1H  ,*N0.  OF  SHORT  TONS  «)  0UT5 

T1«DT(5,K)/100.  0UT5 

T2«T1/DT(1,K)  0UT5 

WRITE (6, 500)  0UT5 

WRITE(6,1000)  T1,T2  0UT5 

500  FORMATdH  ,»N0.  OF  HUNDREDS  OF  CF»)  0UT5 

RETURN  0UT5 

900  WRITE! 6, 950)  0UT5 

050  FORMAT! 1 HO, 1 OX, *N0  DEFERRED  MISSIONS* )  0UT5 

RETURN  0UT5 

END  0UT5 
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19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 
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4 
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r>  o  o  o  o  r> 


'  PLOT 


76/76  OPT-1  ROUND**-**/ 


FTN  4.8*508  09/18/80  09,54. 


C 

c 


*********************************************************************** 

PLOT 

2 

PLOT 

3 

****  SUBROUTINE  PLOT 

PLOT 

4 

PLOT  OUTPUT  FOR  THE  POOL. 

PLOT 

5 

PLOT 

6 

*********************************************************************** 

PLOT 

7 

SUBROUTINE  PLOT(K) 

PLOT 

0 

DIMENSION  T<100,9,25)»  A!500,9,25),  E(1000#2»25),  P!15*25) 

PL0T1 

1 

DIMENSION  D<500»9),  F!500f2f25)f  G<25,5) 

PL0T1 

2 

DIMENSION  HR ( 2000) *  VEHI2000),  TON(2000)*  CUBE!2000)»  TM!200O) 

PLOT 

13 

DIMENSION  LABEL!  4)  *  SStlOS  SP.(10)»  RS!10)»  PP(10) 

PLOT 

14 

DIMENSION  RRR!10),  RSS<10),  RSP.UO),  SRS(IO) 

PLOT 

15 

INTEGER  P 

PLOT 

16 

LEVEL  It  T» A»  F#  E»  D 

PL  OT 

17 

COMMON  /  AAA  /  A 

PL0T1 

3 

COMMON  /  BBB  /  DfEfFfT 

PL0T1 

4 

COMMON  /  GGG  /  G 

PLOT 

19 

COMMON  /  PPP  /  P 

PLOT 

20 

DATA  LABEL/'S  BUTLERS ' BLDG.367* ,  • X-2173* ,* CSD-SMB* / 

PL0T3 

1 

PL0T3 

2 

PL0T3 

3 

NM«P(7»K) 

PLOT 

22 

IF(NM.EQ.O)  RETURN 

PLOT 

23 

M2-2*NM 

PLOT 

24 

START-FL0AT(P(9,K)) 

PLOT 

25 

NL»P(6,K) 

pl  nT 

27 

Tl-O. 

PLOT 

28 

T2-0. 

PLOT 

29 

TV*  0. 

PLOT 

30 

TT-O. 

PLOT 

31 

TC*0. 

PLOT 

32 

DO  1100  I-1,N2 

PLOT 

33 

J1-2*I-1 

PLOT 

34 

VEH ( J 1) *TV 

PLOT 

35 

TON ( J 1 )*TT 

PLOT 

36 

CUBE! J1)«TC 

PLOT 

37 

J2*2* I 

PLOT 

38 

NY* INT!ABS(E!If2fK))) 

PLOT 

39 

HR!J2)*,!E!I#l#K)-START)/60. 

PLOT 

40 

VEH!J2)*mSIGN!F!NY,2,K),E!I#2,K))/100. 

PLOT 

41 

TM! J2)*HR(J2) 

PLOT 

42 

IF(E!I/2»K).GT.O.)  GO  TO  1050 

PLOT 

43 

DO  1025  L*1»NL 

PLOT 

44 

I3*L 

PLOT 

45 

IF!T(L»1fK).EQ.A(NY»1*K))  GO  TO  1035 

PLOT 

46 

1025  CONTINUE 

PLOT 

47 

1035  IF!T!I3*9,K).GT.O.)  GO  TO  1045 

PLOT 

46 

TM(J2)*!E!I»1fKJ— !T!I3» 7, K)+T! 13# 8, K) I-START) /60. 

PLOT 

49 

1045  IF!F!NYf2»K).E0.0.)  GO  TO  1050 

PLOT 

50 

T1*T14-A!NY,5,K) 

PLOT 

51 

T2-T2«-A!NY,6,K) 

PLOT 

52 

1050  T0N!J2)-10.*T1/!G!1f2)+G!10f2)) 

PL0T1 

5 

CUBE!J2)*T2/!G(l»4)+G(10»4) ) 

PL0T1 

6 

HR! J1)-HR!J2) 

PLOT 

55 

TM!J1)«TM!J2) 

PLOT 

56 

TV*VEH!J2) 

PLOT 

57 

TT-TON! J2) 

PLOT 

58 

45 


E  PLOT  76/76  OPT *1  ROUND-*-*/  FTN  4.8*508 


TC«CUBE(J2) 

1100  CONTINUE 
N3-2*N2-1 

ENCODE!  50,  1200,  SS  ) 

1200  FORMAT!  «  NUMBER  OF  VEHICLES  IN  USE  VS.  TIME>»> 

ENCODE!  30,  1300,  SR  ) 

1300  FORMAT!  *  NUMBER  OF  VEHICLES>') 

ENCODE!  30,  1400,  RS  ) 

1400  FORMAT!  'TIME,  IN  HOURS>* ) 

ENCODE!  100,  1500,  RRR  ) 

1500  FORMAT!  •  SHORT  TONS  DELIVERED  !*  OF  TOTAL  ASSIGNED)  VS.  TIME>*> 
ENCODE!  70,  1600,  RSS  ) 

1600  FORMAT!  •  Z  OF  TOTAL  SHORT  TONS  ASSIGNED>* ) 

ENCODE!  100,  1700,  RSR  ) 

1700  FORMAT!  •  CUBIC  FEET  DELIVERED  iZ  OF  TOTAL  ASSIGNED)  VS.  TIME>») 
ENCODE!  50,  1000,  SRS  ) 

1000  FORMAT!  '  Z  OF  TOTAL  CUBIC  FEET  ASSIGNED  >•) 

ENCODE!  40,  1900,  PP)  P!l,K) 

1900  FORMAT!  '  POOL  NUMBER', 13, •>•  ) 

CALL  PLTBEG!  13.  ,  29.  ,  1.0  ,  13  ,  LABEL  ) 

CALL  FIXSCA! ; HR  ,  N3*l  ,  8.  ,  XS  ,  XMIN  ,  XMAX  ,  DX  ) 

CALL  FIXSCA!  VEH  »  N3+1  ,  6.  ,  YS  ,  YMIN  ,  YMAX  ,  DY  ) 

CALL  PLTSCA!  2.  *  2.  ,  XMIN  ,  YMIN  ,  XS  ,  YS  ) 

CALL  PLTDTS!  1  ,  0  ,  HP  ,  VEH  ,  N3*l  ,  0  ) 

CALL  PLTAXS!  DX  ,  DY  ,  XMIN  ,  XMAX  ,  YMIN  ,  YMAX  ,  4  ) 

CALL  LABELA!  DX  ,  DY  ,  XMIN  ,  XMAX  ,  YMIN  ,  YMAX  ,  1.0  ,  1.0  ) 

CALL  PLTSYM!  0.10  ,  SS  ,  0.  ,  XHIN*!XS*2)  ,  YMAX*!YS*0.25 )  ) 

CALL  PLTSYM!  0.08  ,  SR  ,  90.,  XMIN-!X$*0.75 )  ,  YMIN*!YS*2)  ) 

CALL  PLTSYM!  0.08  ,  RS  ,  0.  ,  XMIN*!XS*3)  ,  YMIN-!YS*0. 5)  ) 

CALL  PLTSYM!  0.15  ,  PP  ,  0.  ,  XMIN*!X$*3.25),  YMAX* !YS*0. 75)  ) 

C  BEGIN  PLOT  OF*  SHORT  TONS  DELIVERED 

CALL  FIXSCA!  TM  ,  N3*l  ,  8.  ,  XS  ,  XMIN  ,  XMAX  ,  DX  ) 

CALL  PLTSCA!  2 .  ,  11.  ,  TM  ,  0  ,  XS  ,  16.66  ) 

CALL  PLTDTS!  1  ,  0  ,  TM  ,  TON  ,  N3*l  ,  0  I 

CALL  PLTAXS!  DX  ,  10,.,  XMIN  ,  XMAX  ,  0.  ,  100.  ,4  ) 

CALL  LABELA!  DX  ,  10.  ,  XMIN  ,  XMAX  ,  0.  ,  100.  ,  1.0  ,  1.0  ) 

CALL  PLTSYM!  0.10  ,  RRR  ,  0  ,  XHINMXS*!)  »  102.  ) 

CALL  PLTSYM!  0.08  ,  RSS  ,  90.  ,  XMIN-!XS*0.5>  ,  20.  ) 

CALL  PLTSYM!  0.08  ,  RS  ,  0.  ,  XMIN*!XS*3)  ,  -9.  ) 

CALL  P4.TSYH!  0.15  ,  PP  ,  0.  ,  XHIN*!XS*3.25)  ,  108.  ) 

C  BE6IN  PLOT  OF  CUBIC  FEET  DELIV. 

CALL  FIXSCA!  TM  ,  N3+1  ,  8.  ,  XS  ,  XMIN  ,  XMAX  ,  DX  ) 

CALL  PLTSCA!  2.  ,  20.  ,  TM  ,  0  ,  XS  ,  16.66  ) 

CALL  PLTDTS!  1  ,  0  ,  TM  ,  CUBE  ,  N3+1  ,  0  ) 

CALL  PLTAXS!  DX  ,10.  ,  XMIN  ,  XMAX  ,  0.  ,  100.  ,  4) 

CALL  LABELA!  DX  » • 10«; ,  XMIN  ,  XMAX  ,  0.  ,  100.  ,  1.0  ,  1.0  ) 

CALL  PLTSYM!  0.10  ,iR$P  ,0.  ,  XMIN+!XS*1)  ,102.  ) 

CALL  PLTSYM!  0.08  ,  SRS  ,  90.  ,  XHI N-< XS*0. 5 )  ,  20.  ) 

CALL  PLTSYM!  0.08  ,  RS  ,  0.  ,  XMIN*!XS*3)  ,  -9.  ) 

CALL  PLTSYM!  0.15  ,  PP  ,  0.  ,  XMIN+!XS*3.25)  ,  108.  ) 

CALL  PLTPGE 

RETURN 

END 
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APPENDIX  B 


TV EM  CONTROL  PARAMETERS 


This  appendix  gives  a  listing  of  all  control  parameters  contained 
in  the  TVEM.  The  values  that  can  be  assigned  to  each  parameter  and  the 
effect  of  each  is  also  given. 
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TVEM  CONTROL  PARAMETERS 


LIST  = 

IPLOT  = 

ISP  = 

IDF  = 

ITRNS  = 

TRTM  - 

DFTM  - 

Note: 


Parameters  Contained  in  DATA  Statements 
0  Input  data  are  not  printed. 

1  Input  data  for  each  pool  are  printed. 


0  No  plots. 

1  Results  for  each  pool  are  plotted. 


r -1  All  missions  will  be  split  if  necessary. 

0  Each  mission  will  be  split  or  not  according  to  mission 

parameter  as  input  (A(I,8,K)). 

+1  All  missions  will  not  be  permitted  to  be  split. 

r  -1  All  missions  will  be  prevented  from  being  postponed. 

0  Missions  will  be  postponed  or  not  according  to  mission 
parameter  as  input  (A(I,9,K)). 

.  +1  All  missions  will  be  postponed  if  necessary. 


/  -1  If  a  mission  can  be  transferred,  it  will  be  transferred 
with  no  postponement. 

0  If  a  mission  can  be  transferred,  it  will  be  postponed  for 
only  TRTM  minutes. 

\+l  All  missions  will  be  postponed  for  at  most  DFTM  minutes 
whenever  necessary. 


If  ITRNS  =  0,  missions  that  can  be  transferred  will  be  post¬ 
poned  for  only  TRTM  minutes. 

If  a  mission  cannot  be  transferred  or  if  ITRNS  =  +1,  the 
mission  will  be  postponed  for  at  most  DFTM  minutes. 


If  DFTM  exceeds  TRTM,  a  check  in  the  TVEM  will  reverse  the  values 
assigned  to  ensure  that  TRTM^  DFTM. 
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A( I ,7,K)  = 


A( I j8,K)  = 


A(I,9,K)  = 


Parameters  Introduced  by  Input  - 

0  The  I-th  mission  assigned  to  the  K-th  pool  cannot  be  trans¬ 
ferred. 

N  The  mission  can  be  transferred  to  the  pool  whose  ID  No.  is  N, 
whenever  necessary. 


1  The  I-th  mission  assigned  to  the  K-th  pool  can  be  split 

whenever  necessary. 

2  The  mission  cannot  be  split. 

0  The  I-th  mission  assigned  to  the  K-th  pool  will  not  be  post 
poned 

1  The  mission  will  be  postponed,  in  full  or  in  part,  whenever 
necessary. 


51 


Next  page  is  blank. 


APPENDIX  C 

MISSION  DEFERMENT  NARRATIVE 


53 


Next  page  is  blank. 


APPENDIX  C 


MISSION  DEFERMENT  NARRATIVE 


This  appendix  consists  of  a  detailed  documentation  of  those  TVEM 
routines  concerned  with  the  deferment  of  missions.  The  documentation  is 
in  the  form  of  a  nearly  line-by-line  explanation  of  the  FORTRAN  coding. 
Included  at  various  points  in  the  narrative  are  line  numbers  which  refer  to 
the  program  lines  of  coding  as  shown  at  the  right  hand  side  of  each  page  of 
the  program  listing  in  Appendix  A. 

MISSION  DEFERMENT  NARRATIVE 

If  a  mission  cannot  be  completed  because  of  a  shortage  of  avail¬ 
able  vehicles,  the  mission  can  be  postponed  for  a  specified  amount  of  time 
in  the  hope  of  finding  a  slack  period  in  the  schedule  of  remaining  missions. 

Subroutine  REMAIN. 

If  the  mission  is  the  remainder  of  a  split  mission,  the  amount  of 
remaining  cargo  is  calculated  along  with  the  required  truck  capacity  and 
the  number  of  trucks  needed.  The  amount  of  required  capacity  is  stored  for 
later  use. 

Subroutine  PSTPN. 

For  entire  missions  as  well  as  the  remainders  of  split  missions, 
the  index  of  the  current  event  is  obtained  and  the  index  to  access  the 
mission  information  is  also  obtained.  Next,  a  control  parameter,  IRT,  is 
set  to  zero.  If  the  mission  can  be  completed  later,  IRT  will  be  reset  to 
one.  If  the  mission  of  interest  is  an  entire  mission,  the  amount  of  truck 
capacity  that  was  earlier  determined  to  be  required  for  the  mission  is  set 
to  zero.  If  the  number  of  trucks  required  for  the  mission  exceeds  that 
assigned  to  the  pool,  the  attempt  to  defer  the  mission  is  aborted.  Other¬ 
wise,  if  permission  to  defer  the  mission  has  been  denied  by  input,  the 
attempt  is  aborted.  Alternatively,  if  the  parameter,  ITRNS,  is  negative 
and  the  mission  can  be  transferred,  the  transfer  will  not  be  delayed. 
However,  if  ITRNS  is  equal  to  zero  and  the  mission  can  be  transferred,  it 
will  be  delayed  for  only  TRTM  minutes.  Otherwise,  the  mission  can  be 
delayed  for  DFTM  minutes  in  attempting  completion. 

If  other  missions  for  this  pool  that  were  deferred  are  scheduled 
for  completion,  the  departure  times  are  put  into  chronological  order  (PSTPN 
48).  The  scheduled  departure  time  for  the  mission  of  interest  is  obtained 
along  with  the  number  of  trucks  that  are  occupied.  Next,  the  number  of 
scheduled  events  is  calculated  and  the  index  of  the  next  event  is  obtained. 
If  the  mission  of  interest  is  the  last  one  scheduled,  the  attempt  to  defer 
it  is  aborted.  Otherwise,  the  remaining  events  are  inspected  to  find  a 
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slack  period  (loop  PSTPN  66  -  PSTPN  142).  For  a  remaining  event,  the 
number  of  trucks  involved  is  calculated  and  the  number  of  trucks  that  are 
occupied  is  increased  or  decreased  according  to  whether  the  trucks  are 
departing  or  returning.  If  the  event  is  a  departure,  the  routine  continues 
checking  the  remaining  events.  If  the  event  is  a  return,  the  routine 
checks  to  see  if  enough  trucks  are  back  from  the  mission  that  a  sufficient 
number  of  vehicles  would  be  available  for  the  pool  to  accomplish  the  delayed 
mission.  If  not,  the  routine  continues  checking  the  remaining  events.  On 
the  other  hand,  if  enough  trucks  would  be  available,  the  routine  checks  to 
see  if  it  would  be  too  late  anyway.  That  is,  whether  the  time  associated 
with  the  vehicle  return  from  mission  is  later  than  the  critical  delay  time 
as  determined. by  adding  the  permissible  delay  to  the  time  that  the  trucks 
were  originally  scheduled  to  depart  on  the  mission.  If  it  is  too  late, 
the  attempt  to  defer  the  mission  is  aborted  at  this  point  (PSTPN  82). 

If  it  is  not  too  late,  the  model  must* check  that  enough  vehicles 
will  be  available  for  a  sufficient  length  of  time  to  complete  the  mission. 
First,  the  time  that  the  mission  could  be  tentatively  scheduled  for  vehicle 
departure  is  stored  and  the  index  of  the  next  event  is  obtained.  The 
model  then  cycles  through  each  of  the  remaining  scheduled  event  times. 

The  object  of  this  loop  (PSTPN  90  -  PSTPN  143)  is  to  find  the  first  sche¬ 
duled  mission  departure  that  would  require  the  use  of  one  or  all  of  the 
trucks  that  are  needed  for  the  deferred  mission.  The  time  gap,  defined  by 
the  time  that  enough  vehicles  would  first  be  available  for  the  deferred 
mission  until  the  earliest  time  that  a  scheduled  mission  would  require  at 
least  one  of  those  vehicles,  will  then  be  checked  to  see  if  there  would  be 
enough  time  to  complete  the  deferred  mission. 

In  checking  each  of  the  remaining  events  the  model  first  deter¬ 
mines  the  number  of  trucks  associated  with  the  event.  If  it  is  a  return 
from  a  mission,  the  number  of  vehicles  that  are  occupied  is  decreased  by 
the  number  of  returning  trucks  and  the  routine  continues  checking  the 
remaining  events.  On  the  other  hand,  if  it  is  a  mission  departure,  the 
number  of  trucks  occupied  is  increased  by  the  number  of  trucks  required 
for  the  scheduled  mission  and  a  check  is  made  to  see  if  there  will  still 
be  enough  trucks  available  for  the  deferred  mission.  If  so,  the  model 
considers  the  next  event.  However,  if  the  scheduled  mission  would  require 
at  least  one  of  the  trucks  needed  for  the  deferred  mission,  the  time  gap 
thus  defined  is  checked  to  see  if  it  is  sufficient  for  the  deferred  mission 
(PSTPN  107).  If  not,  the  model  continues  the  search  for  another  time  gap. 

On  the  other  hand,  if  the  time  gap  is  sufficient  for  the  deferred  mission, 
the  model  must  then  check  to  ensure  that  the  time  gap  has  not  been  usurped 
by  other  deferred  missions. 

If  no  other  missions  have  yet  been  deferred,  all  is  well.  Other¬ 
wise,  the  times  of  the  deferred  missions,  having  been  ordered  chronological¬ 
ly  by  the  mission  departure  times,  are  checked  in  turn  (PSTPN  109  -  PSTPN 
120).  Mf  the  mission  departure  and  return  times  completely  span  the  time 
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gap,  it  is  abandoned  and  the  model  continues  the  search  for  another  suitable 
time  gap.  But,  if  the  departure  time  for  the  deferred  mission  is  later 
than  the  end  of  the  contemplated  time  gap,  all  is  well  because  any  remaining 
deferred  missions  will  have  their  departure  times  even  later.  If  the 
return  time  for  the  deferred  mission  is  earlier  than  the  beginning  of  the 
time  gap,  the  model  considers  the  remaining  deferred  missions,  if  any.  On 
the  other  hand,  if  the  deferred  mission  ends  within  the  time  gap  of  interest, 
the  time  span  defined  by  the  beginning  of  the  gap  and  the  departure  of  the 
deferred  mission  is  checked  to  see  if  it  is  long  enough  to  accommodate  the 
mission  that  we  wish  to  defer.  If  so,  all  is  well.  Otherwise,  the  starting 
time  of  the  time  gap  is  set  equal  to  the  return  time  of  the  previously 
deferred  mission.  If  the  resulting  time  gap  is  too  short  for  the  mission 
to  be  deferred,  the  gap  is  abandoned  and  the  model  searches  for  another 
suitable  slack  period.  If  the  time  gap  is  sufficiently  long,  but  the 
starting  time  would  be  beyond  the  permissible  delay  period,  the  time  gap 
is  abandoned  and  the  attempt  to  defer  the  mission  is  aborted  (PSTPN  2.1). 
Otherwise,  the  model  has  determined  that  there  exists  enough  time  and 
enough  trucks  to  successfully  reschedule  the  mission.  Accordingly,  the 
mission  start  and  return  times  are  reset.  The  index  for  the  number  of 
successfully  deferred  missions  is  incremented  by  one  and  the  start  and 
return  times  are  stored  in  a  separate  array  so  that  they  are  available  for 
checking  in  the  course  of  attempting  to  defer  any  subsequent  regularly 
scheduled  missions.  The  parameter  to  record  the  maximum  number  of  vehicles 
occupied  is  checked  and  the  control  parameter,  IRT,  is  set  equal  to  one. 
Finally,  if  the  mission  that  has  been  rescheduled  is  the  remainder  of  a 
split  mission,  the  variable  that  stores  the  number  of  the  pool  to  which 
the  mission  could  have  been  transferred  is  set  to  minus  one  before  program 
control  returns  to  the  main  program. 

The  dispatch  and  return  times  for  any  transferable  mission  that 
has  been  deferred  unsuccessfully  must  be  increased  by  the  amount  of  time 
the  mission  was  delayed  before  program  control  returns  to  the  main  program. 

A  few  more  details  in  the  main  program  remain  concerning  the 
deferment  methodology.  Upon  returning  from  Subroutine  PSTPN,  the  model 
checks  to  see  if  the  mission  has  been  successfully  deferred  and  is  an  entire 
mission.  If  so,  the  model  resets  the  mission  disposition  code  to  one  of 
five  values  indicating  that  it  is  an  entire  mission  deferred  in  full.  The 
model  then  considers  the  next  scheduled  event.  If  it  is  an  entire  mission 
that  was  not  successfully  deferred,  the  amount  of  truck  capacity  required 
for  the  mission  is  set  to  zero. 

Subroutine  STRMSS. 

But,  if  the  mission  is  the  remainder  of  a  split  mission,  Subrou¬ 
tine  STRMSS  is  called  for  storage  of  the  mission  tonnage  and  cube.  This 
information  is  printed  out  in  the  Mission  Status  Report.  Subroutine 
STRMSS  is  also  used  to  store  information  on  the  remainders  of  split  missions 
that  are  to  be  transferred  or  skipped.  The  proper  storage  of  the  mission 


information  is  controlled  by  the  value  stored  in  the  variable  A(N,7,K) 
which  contains  the  number  of  the  pool  to  which  the  mission  can  be  transfer¬ 
red.  At  this  point  in  the  mission  processing,  the  value  in  A(N,7,K)  could 
be  positive,  indicating  that  the  mission  is  to  be  transferred.  The  variable 
A(N,7,K)  could  be  negative,  indicating  that  the  mission  has  been  success¬ 
fully  deferred  or  it  could  be  zero,  indicating  that  the  mission  will  be 
skipped.  After  the  mission  information  has  been  properly  stored  for  later 
reporting,  program  control  returns  to  the  main  TVEM  program. 

If  the  mission  has  not  been  successfully  deferred  and  it  is 
permissible  to  transfer  the  mission  to  another  pool,  the  program  calls 
Subroutine  TRNSFR  which  stores  the  mission  information  temporarily  pending 
later  execution  of  the  mission  transfer. 

Finally,  the  model  checks  the  variable  which  stores  the  maximum 
vehicle  usage  and  proceeds  to  check  the  next  scheduled  event. 

After  all  of  the  mission  events  for  a  pool  have  been  processed, 
the  model  inspects  each  of  the  missions  (the  coding  lines  between  MAIN  493 
and  MAIN  496).  If  the  mission  is  the  remainder  of  a  split  mission,  the 
value  of  the  truck  capacity  required  for  the  mission  is  first  set  to  zero. 

If  the  mission  was  successfully  deferred,  the  capacity  is  reset  to  a  value 
that  was  determined  in  Subroutine  REMAIN. 
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APPENDIX  D 

TEST  CASE  INPUT  AND  OUTPUT 


Test  Case  Input 

For  an  explanation  of  the  TVEM  input  structure  and  formats  the 
user  is  advised  to  refer  to  TR-311^,  Section  2.3  and  Appendix  C. 

According  to  the  first  input  card,  the  data  for  the  test  case 
consist  of  information  on  two  vehicle  pools.  The  important  points  regarding 
the  input  data  are  given  in  the  following  paragraphs. 

The  first  pool,  identified  as  Pool  Number  1,  consists  of  two 
trucks,  each  of  which  can  haul  1/2  ton  or  100  cubic  feet  of  cargo.  The 
next  six  cards  give  the  information  for  the  routes  on  which  the  missions 
assigned  to  the  pool  are  to  occur.  The  data  for  the  routes  are  terminated 
by  a  negative  value  on  the  ninth  card. 

The  next  five  cards  comprise  the  schedule  of  missions  assigned  to 
the  pool.  Each  of  the  missions  can  be  transferred  to  Pool  Number  4,  if 
necessary.  Notice,  however,  that  according  to  the  entry  in  the  ninth  field 
of  each  card,  each  mission  may  be  deferred  if  it  cannot  be  dispatched  at 
the  scheduled  time.  Each  of  the  missions  can  be  split,  if  necessary,  with 
the  exception  of  the  fourth  mission.  Notice  also,  that  this  mission  requires 
that  1.5  tons  of  cargo  he  hauled.  Because  there  are  not  enough  trucks  as¬ 
signed  to  the  pool  to  haul  this  much  cargo,  any  attempt  to  defer  the  mis¬ 
sion  will  be  aborted  and  the  mission  will  be  transferred. 

For  this  test  case,  the  values  of  TRTM  and  DFTM  have  been  estab¬ 
lished  as  90  minutes  and  120  minutes,  respectively  (see  Appendix  A). 

Moreover,  the  control  parameter,  ITRNS,  has  been  set  to  zero.  Therefore, 
any  mission  that  cannot  be  undertaken  by  the  pool  at  the  scheduled  time 
will  not  be  transferred  immediately,  but  will  be  delayed  for  90  minutes 
at  most. 


The  data  for  the  second  pool,  identified  as  Pool  Number  4,  are 
identical  to  those  of  the  first  pool  except  that  the  missions  can  neither 
be  transferred  nor  deferred. 


1  Loc.Cit. 
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TEST  CASE  INPUT 


2 

1  T  5  100 

1.  1.  I. 

2.  2.  2, 

3  •  3 1,  3  • 

4.  4*  0. 

5.  5.  0, 

6*  6.  0  • 

-looooi. 

5.  1.  0, 

1.  1.  0. 

6.  1.  115. 

4  .  1  .  0  . 

2.  1.  830. 

-100002. 

47  5  100 

1.  1.  1. 

2.  2.  2, 

3 .  3 .  3 . 

4.  4,  0, 

5.  5.  0. 

6.  6'.'  0. 

-200001. 

5  .  1 .  0  . 

1 .,  1 .  0  . 

6.  1.  115, 

4  .  1 .  0  . 

2.  1.  830, 

-200002. 

-9999 


1. 

6. 

6,  , 

2. 

5. 

5. 

3. 

4. 

4. 

4, 

3. 

3. 

s. 

2. 

2. 

6  § 

1. 

1. 

115. 

15. 

75. 

127. 

6. 

,  50. 

0. 

10. 

110. 

200. 

15. 

90. 

0. 

10, 

70. 

It 

6  • 

6. 

2. 

5. 

5, 

3. 

4. 

4. 

4. 

3. 

3. 

5. 

2. 

2. 

6. 

1. 

1. 

115. 

15. 

75. 

127. 

5, 

50. 

0. 

10. 

no. 

200. 

15. 

90. 

0.  . 

10. 

70. 

1. 

2. 

3. 

4. 

5. 

6. 

4. 

4. 

4, 

4, 

4. 


1. 

2. 

3. 

4. 

5. 

6. 

0. 

0. 

0. 

0. 

0. 
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Test  Case  Output 

The  first  two  pages  of  output  from  the  simulation  are  the  listings 
of  the  input  data  for  each  of  the  two  pools,  to  include  the  pool  character¬ 
istics  and  the  links  and  missions  arrays  for  each. 

The  next  four  pages  of  output  give  the  simulation  results  by 
pool.  Two  pages  are  devoted  to  the  results  of  each.  For  Pool  Number  1,  we 
see  that  five  missions  were  assigned.  Of  these  five  missions,  two  were 
completed  in  full,  one  was  transferred,  and  one  was  deferred  in  full.  The 
remaining  mission  was  split,  with  one  part  completed  and  the  remainder 
deferred.  Thus,  two  missions  were  deferred^  one  entire  mission  and  the 
remainder  of  a  split  mission.  The  mission  that  was  transferred  required 
more  vehicles  than  were  assigned  to  the  pool,  so  the  TVEM  made  no  attempt 
to  defer  it. 

The  second  page  of  output  for  the  pool  gives  some  information 
about  the  five  deferred  missions  in  the  Deferred  Missions  Report.  In 
addition  to  giving  the  amount  of  cargo  and  the  number  of  trucks  required, 
the  number  of  hours  that  the  missions  were  delayed  is  also  reported.  The 
table  also  gives  the  per-mission  average  values  for  these  items. 

Recalling  that  the  missions  assigned  to  Pool  Number  4  were  very 
similar  to  those  assigned  to  Pool  Number  1,  it  is  no  surprise  to  find  that 
the  output  for  Pool  4  is  identical  to  that  of  Pool  1,  except  for  the  fol¬ 
lowing  differences.  Whereas,  in  the  first  pool,  one  mission  was  trans¬ 
ferred  in  full  and  one  was  deferred  in  full,  the  corresponding  missions 
assigned  to  Pool  4  were  skipped  in  full.  Also,  the  remainder  of  the  split 
mission  was  skipped,  unlike  that  in  Pool  1  where  the  remainder  of  the  cor¬ 
responding  mission  was  deferred.  Finally,  because  Pool  Number  4  was  not 
permitted  to  defer  any  of  the  missions,  the  Deferred  Missions  Report  con¬ 
tains  no  information. 
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xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx: 


OUTPUT  FOR  POOL  NO.  1 
VEHICLE  NUMBER  7 
VEHICLE  PAYLOAD  CSTXIO)  5 
VEHICLE  CUBIC  CAPACITY  100 
NO.  OF  VEHICLES  IN  POOL  2 


MISSION  STATUS  REPORT 


NO. 

S.T. 

r,  st 

100  CF 

%  CF 

ORIGINAL  MISSIONS  ASSIGNED 

5. 

5.5 

100.0 

A.  0 

100.0 

COMPLETED  IN  FULL 

2. 

2.0 

36. A 

1.8 

45.6 

CONTRACTED  IN  FULL 

1. 

1.5 

27.3 

.9 

22.8 

DEFERRED  IN  FULL 

1. 

.5 

9.1 

.5 

12.7 

SKIPPED  IN  FULL 

0. 

0.0 

0.0 

0.0 

0.0 

COMPLETED  IN  PART 

1. 

1.0 

18.2 

.5 

12.7 

CONTRACTED  IN  PART 

0. 

0.0 

0.0 

0.0 

0.0 

DEFERRED  IN  PART 

1. 

.5 

9.1 

.3 

6.3 

SKIPPED  IN  «*ART 

0. 

0.0 

0.0 

0.0 

0.0 

ADDITIONAL  MISSIONS  ASSIGNED 

0. 

0.0 

0.0 

0.0 

0.0 

FRACTIONAL  MISSIONS 

0. 

0.0 

0.0 

0.0 

0.0 

COMPLETED 

0. 

0.0 

0.0 

0.0 

0.0 

DEFERRED 

0. 

0.0 

0.0 

0.0 

0.0 

SKIPPED 

0. 

0.0 

0.0 

0.0 

0.0 

WHOLE  MISSIONS 

0.: 

o.o 

0.0 

0.0 

0.0 

COMPLETED  IN  FULL 

0. 

0.0 

0.0 

0.0 

0.0 

CONTRACTED  IN  FULL 

0. 

0.0 

0.0 

0.0 

0.0 

DEFERRED  IN  FULL 

0. 

0.0 

0.0 

0.0 

0.0 

SKIPPED  IN  FULL 

0, 

0.0 

0.0 

0.0 

0.0 

COMPLETED  IN  PART 

0. 

0.0 

0.0 

0.0 

0.0 

CONTRACTED  IN  PART 

0. 

0.0 

0.0 

0.0 

0.0 

DEFERRED  IN  PART 

0. 

0.0 

0.0 

0.0 

0.0 

SKIPPED  IN  PART 

0. 

0.0 

0.0 

0.0 

0.0 

66 


D  E 

F  E  R  R  E  D  MI 

ss  i  ohs 

REPORT 

TOTAL 

AVG/MISSIOH 

NO. 

OF  HISSIONS 

2.0 

NO. 

OF  HOURS  DELAYED 

2.3 

1.16 

NO. 

OF  TRUCKS 

2.0 

1.00 

NO. 

OF  SHORT  TONS 

1.0 

.50 

NO. 

OF  HUNDREDS  OF'CF 

.5 

.25 

VEHICLE  STATUS  REPORT 


NO.  OF  VEHICLES  USED  2 

UNUSED  CAPACITY  (X)  0. 

VEHICLE  CUBIC  EFFICIENCY: (X)  *4. 

VEHICLE  PAYLOAD  EFF.  (X)  125.. 


CONSIDERING  ONLY  THE  VEHICLES  USED  AND  MISSIONS  PERFORMED 


TOT.  VEH-HPS 

PERCENT 

AVER/MISSION 

TRAVEL 

1.1 

6.7 

.21 

DELAY  (DEPTil  POINT) 

.5 

3.3 

.11 

DELAY  (INTERN;  POINT) 

.4 

2.5 

.08 

DELAY  (RTN  POINT) 

.4 

2.5 

.08 

LOADING 

.2 

1.4 

.04 

UNLOADING 

.4 

2.5 

.08 

IDLE 

13.0 

81.2 

2.60 

HOURS  FROM  FIRST  DEPARTURE  TO  LAST  DESIRED 

ARRIVAL- 

8.02 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx: 

» 
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XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 


OUTPUT  FOR  POOL  NO.  4 
VEHICLE  NUMBER  7 
VEHICLE  PAYLOAD  (STXIO)  5 
VEHICLE  CUBIC  CAPACITY  100 
NO.  OF  VEHICLES  IN  POOL  2 


MISSION  STATUS  REPORT 


NO. 


11  ORIGINAL  MISSIONS  ASSIGNED  5. 

COMPLETED  IN  FULL  2. 

CONTRACTED  IN  FULL  0. 

DEFERRED  IN  FULL  0. 

SKIPPED  IN  FULL  2. 

COMPLETED  IN  PART  1. 

CONTRACTED  IN  PART  0. 

DEFERRED  IN  PART  0. 

SKIPPED  IN  PART  1. 

2)  ADDITIONAL  MISSIONS  ASSIGNED  l.! 

FRACTIONAL  MISSIONS  0., 

COMPLETED  0. 

DEFERRED  0,’ 

SKIPPED  0. 

WHOLE  MISSIONS  1. 

COMPLETED  IN  FULL  0. 

CONTRACTED  IN  FULL  0. 

DEFERRED  IN  FULL  0, 

SKIPPED  IN  FULL  1. 

COMPLETED  IN  PART  0. 

CONTRACTED  IN  PART  0, 

DEFERRED  IN  PART  0. 

SKIPPED  IN  PART  0. 


S.T. 

r,  st 

100  CF 

Z  CF 

5.5 

78.6 

4.0 

81.4 

2.0 

28.6 

1.8 

37.1 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

2.0 

28.6 

1.4 

28.9 

1.0 

16.3 

.5 

10.3 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

.5 

7.1 

.3 

5.2 

1.5 

21.4 

.9 

18.6 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

1.5 

21.4 

.9 

18.6 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

1.5 

21.4 

.9 

18.6 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

0.0 

DEFERRED 


MISSIONS  REPORT' 


TOTAL  A VO/MISSION 


MO  DEFERRED  MISSIONS 


VEHICLE  STATUS  REPORT 


NO.  OF  VEHICLES  USED  2 
UNUSED  CAPACITY  <*)  0. 
VEHICLE  CUBIC  EFFICIENCY  IX)  38. 
VEHICLE  PAYLOAD  EFF.  iX)  100. 


CONSIDERING  ONLY  THE  VEHICLES  USED  AND  MISSIONS  PERFORHFD- 


TOT.  VEH-HRS 

PERCENT 

AVER/MISSION 

TRAVEL 

.9 

5. A 

DELAY  (DEPT.I  POINT) 

.4 

2.7 

.1* 

DELAY  (INTERM.  POINT) 

.3 

1.7 

.09 

DELAY  (RTH  POINT) 

.3 

1.7 

.09 

LOADING 

.2 

1.0 

.06 

UNLOADING 

.3 

1,7 

.09 

IDLE 

13.8 

85.9 

4.59 

HOURS  FROM  FIRST  DEPARTURE  Tn  LAST  DESIRED  ARRIVAL-  8.02 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX) 


*********** 

*********** 


STANB9V  0002383  LINES  PRINTED.  (LS10) 
STANB9V  0002383  LINES  PRINTED.  (LS10) 
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HMMMMMMMMMMMMMMMMMHMMMMMMMMMMMMMMMMMMMMMHMMMMMMMMMMMMM  NICJB  MMMMMMMMMMMME 

MMMMMMMMMMMMMMMMMMMHMMMMMMMMMMMMMMMMMMMMNMMMMMMMMHMMMM  NICJB  MMMMMMMMMMMME 

UUUMUMUUUMMMMMUMMMMMuUUMUUMIIMMMMMMMMMUMMMMMMMMMUMMMUMM  MTT In  UMMMUMUMUWUUh 


DISTRIBUTION  LIST 


No.  of 

No.  of 

Copies 

Organization 

Copies 

Organization 

12 

Commander 

Defense  Tech  Information 
Center 

ATTN:  TCA 

Cameron  Station,  VA  22314 

10 

Commander 

US  Army  Materiel  Devel opmont 
&  Readiness  Command 

ATTN:  DRCCP 

DRCDE-F 

DRCRE 

2 

Commander 

US  Arny  Armament  Research  & 
Devel opment . Command 

ATTN:  DRDAR-SEA 

Tech  Library 

Dover,  NJ  07801 

DRCPA-S 

DRCQA 

DRCDE-R 

DRCDE-D 

DRCBSI-L 

DRCBSI-D 

5001  Eisenhower  Avenue 

1 

Commander 

Rock  Island  Arsenal 

Alexandria,  VA  22333 

ATTN:  Tech  Lib 

Rock  Island,  IL  61299 

1 

Commander 

Harry  Diamond  Laboratories 
ATTN:  DELHD-SAB 

1 

Commander 

US  Army  Test  &  Evaluation 
Command 

2800  Powder  Mill  Road 

Adel  phi,  MD  20783 

ATTN:  STEDP-MT-L 

Dugway  Proving  Ground 

UT  84022 

1 

Commander 

US  Army  Aviation  R&D 

Command 

ATTN:  DRDAV-BC 

1 

Commander 

US  Army  Electronics  R&D 

Command 

P.0.  Box  209 

St.  Louis,  MO  63166 

ATTN:  DRDEL-SA 

Fort  Monmouth,  NJ  07703 

1 

Commander 

US  Army  Electronics  R&D 
Command 

2 

Director 

US  Arn\y  TRADOC  Systems 

Analysis  Activity 

ATTN:  ATAA-SL 

ATTN:  DRDEL-AP-OA 

2800  Powder  Mill  Road 

Adel  phi ,  MD  20783 

ATAA-T 

White  Sands  Missile  Range 

NM  88002 

1 

Commander 

US  Army  Missile  R&D 

Command 

ATTN:  DRDMI-C 

1 

Commander 

US  Army  Troop  Support  & 

Redstone  Arsenal ,  AL  35809 

Aviation  Materiel  Readiness 
Command 

ATTN:  DR STS- BA 

4300  Goodfellow  Blvd 

St.  Louis,  MO  63120 

1 

Commander 

US  Army  Tank-Automotive 
Research  &  Development 
ATTN:  DRDTA-UL  (Tech  Lib) 
DRDTA-V 

Warren,  MI  48090 
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DISTRIBUTION  LIST  (continued) 


No.  of 

No.  of 

Copies 

Organization 

Copies 

Organization 

1 

Commander 

1  . 

Commander 

US  Army  Mobility  Equipment 

R&D  Command 

ATTN:  DRDME-0 

Fort  Bel  voir,  VA  22060 

US  Army  Natick  R&D 

Command 

ATTN:  DRDNA-0 

Natick,  MA  01760 

2 

Chief 

Defense  Logistics  Studies 
Information  Exchange 

US  Army  Logistics  Management 
Center 

ATTN:  DRXMC-D 

1 

Commander 

US  Army  Concepts  Analysis 
Agency 

8120  Woodmont  Avenue 
Bethesda ,  MD  20014 

Fort  Lee,  VA  23801 

1 

Reliability  Analysis  Centei 
ATTN:  Mr.  I.L.  Krulac 
Griffiss  AFB,  NY  13441 

Aberdeen 

Provi ng 

Ground 

2 

Cdr,  USATECOM 

ATTN:  DRSTE 

DRSTE-CS-A 

1 

Dir,  BRL 

Bldg  328 

Bldg  314 

1 

Dir  BRL 

ATTN:  'DRDAR-TSB-S  (STINFO 

1 

Dir,  HEL 

Bldg  520 

Branch) 

Bldg  305 

1  Dir,  AMSAA 
Bldg  392 
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